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ABSTRACT 


A SATCOM Signal Analyzer (SSA) is being developed by the 
Nate llite Communications Laboratory of the Naval Postgradu- 
ate School. The purpose of this system is to provide hish- 
speed multi-channel digital spectrun analysis and character- 
ization of the outputs of UHF communication satellite tran- 
sponders while in orbit and operating. A Digital Computer 
Subsystem provides the control for most of the equipment in 


the system. 


The thesis documents a portion of the software develop- 
ment for this subsystem. This software performs all opera- 
tor interaction usíng a Touch Input System and a Graphics 
Display. It is controlled to a large extent by menu data 
stored in a disc file, which can easily be extended or modi- 


fied. 


Non-trivial file management and concurrent processing of 
several functions are major characteristics of this 


DOE Ware. 
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I. INTRODUCTION 


A. BACKGROUND 

project 1ís part of the SATCOM Signal Analyzer (SSA) 
being developed by the Satellite Communications Laboratory 
Of the Naval Postgraduate School. It is a prototype that 
will be delivered to HAVCOMSTA Stockton for operational and 
reliability evaluation. 

The purpose of the SSA is to provide the user a means of 
doing spectrum monitoring continuously and to permit a 
method of making changes in the spectrum processing with 
ease. The technical characteristics of this system are (1) 
ENuninicomputer for control, (2) array processors for 
analysis, (3) multiple receiver channels, (4) real-time 
plays, and (5) hardcopy output. Pie ves a simpli- 
fied diagram of this systen. 

A Digital Computer Subsystem provides the control for 
most of the equipnent. Nu is constructed around a DEC 


EUP-I1/3^ miniconputer. 
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Figure 1.1 
Structure of the SSA 
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NATURE OF THE PROBLE! 

Mealtime monitoring, processing of operator I/O, and 
control of equipment has to be done by the software of the 
PDP-11/34 minicomputer. Beside processing of time-critical 
events the operator should be given the possibility of ini- 
tiating several functions which can be distinguished by 
priority and volume. While any number of functions are be- 
ing performed it has to be possible to always initialize 
other functions that are more important at a given time by 


Euterrupting current ones. 


NAS COPE OF THIS REPORT 

This report documents part of the software development 
mere the SSA Digital Computer Subsysten. The documentation 
will give a general view of the SSA Digital Conputer Subsys- 
tem and its software. mavili eover in detail the Back- 
meound (BG) Monitor which performs operator interaction and 
certain barovare control functions. Also thes Support 
Software which was developed for the BG Monitor will be 
presented. Appendix A lists the present software and docu- 


mentation. 
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TIS ore Go A OCON PRUTER SUBSYSTE? 


A. Bee. ODUCTION 

Mmimemoperation of the SSA is controlled by the SSA Digi- 
tal Computer Subsysten. This subsystem processes various 
inputs from array processors, frequency receivers, AM/FM re- 
ceivers, and operator control devices. Ie controls syn= 
thesizers, receivers, a hardcopy unit, and monitoring dev- 
eee Fic. 2.1 illustrates the SSA Digital Conputer Subsys- 


tem. 


BEZ SOFTWARE REQUIREMENTS 

The Digital Computer Subsysten performs different kinds 
a (ions. Processing of time-critical functions has the 
highest priority in this systen. Operator interaction is 
processed at the next priority level. Ee ane ludesPeunctions 
like change of system. parameters, requests for certain 
displays, and hardcopy. If none of the above processing has 
to be done, lower priority functions will be executed. 
These "Background Tasks" include hardware operation tests, 


report generation, post analysis, etc. 


14 





Bigůure 2.1 
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tit. SSAPNONITOR SOPITWARE 


A. INTRODUCTION 

mre ooA Monitor software falls into two categories. The 
System Software will be a resident part of the SSA. The 
Support Software is used to create a data file which. pro- 
vides the System Software with necessary information to 
display images on the HP Terminal and process operator in- 
puts. The System Software development has been accomplished 
mo. steps. Most of the program editing, testing, and de- 
bugging was done uSing the UNIX operating systen. The 
second step was to transfer the system software to RT-11 and 
perform final testing and debugging. The Support Software 
was entirely developed under UNIX. 

The programming language RATFOR was used for software 
development. 

This chapter gives an overview of the different software 
components. More detailed information about the BG Monitor 


software is presented in the following chapters. 


OPERATING SYSTEMS 

There were several the reasons for using two different 
Operating systems in the development of the system software. 
RT-11, which was chosen for the SSA Digital Conputer Subsys- 
tem, had some disadvantages compared to UNIX. The editing 
functions and the file management of UNIX vere superior to 
E-il. Also RT-11 allowed no time-sharing. In addition the 


UNIX RATFOR preprocessor could be used to create FORTRAN 
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Peer amse This allowed programming in a more structured 
way. The RATFOR programs were easier to write, read, test, 
and debug. 

RT-11 in its Foreground/Background version is a single 
user, two job system restricted to 28K words of memory. In 
this foreground/background environment, two independent pro- 
grans can reside in memory. The foreground program is given 
priority and executes until it relinquishes control to the 
background progran; the background program executes until 
control is again required by the foreground job. 

RT-11 provides the user with several programmed re- 
quests. The feature of invoking user-written completion 
routines was used to a large extent in the BG Monitor. A 
completion routine has to be scheduled using a programmed 
request. It then is entered in a queue and will he called 
by RT-11 when the specified event has happened. Such an 
event may be a certain time lapse or the completion of sone 
E/O. Thus  RT-11 provided five different levels of program 
Execution: 

- interrupt routine execution 

- foreground coupletion routine execution 
- foreground program execution 

- background completion routine execution 


- background program execution 


C. RATFOR LANGUAGE 
The programming language FORTRAN was chosen to be imple- 


mented in the SSA Digital Computer Subsystem running under 
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RT-11. As FORTRAN is an unpleasant language to some extent, 
the RATFOR preprocessor of the UNIX system was used to con- 
ceal the main deficiencies of FORTRAN. Thus decent control 
flow statements, free form input, and some other features 
were available. RATFOR programs were easier to write, to 


read, to debug, and to naintain. 


Dee SYSTEM SOFTWARE 
l. Porerround Monitor 
ies pregram mainly is interrupt driven to control 
certain time critical processes, like recording data on disc 
and processing data from array processors. The Foreground 
(FG) Monitor is a resident part of the System Software. Its 
functions are controlled by parameters set by BG Monitor. 
D background Monitor 
The main functions of this program are processing of 
Operator interaction and low priority BG Tasks. It executes 
as a background job. Part of the BG ifonitor is resident, 
whereas BG Tasks are stored on an image file to be swapped 
in by RT-1l when their functions are needed. The following 
ehapters will further document the BG Monitor. 
3. Foreground/Background Communication 
FG Monitor and BG Monitor communicate with each oth- 
er using the communication services provided by RT-ll. They 
allow sending data messages in either direction. The data 
that has to be shared by both Monitors is the Parameter 
Bock (PB) and the Status Block (SB). The PB contains all 


parameters to Control the functions ot the EG Monitor. Ie 
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is updated by the BG Monitor and then as a whole sent to the 
FG Monitor. Toe SB provides all information about the sys“ 
tem status. It is updated by the FG Honitor and on request 


Mmeanmsterred to the BG Monitor. 


E SUPPORT SOFTWARE 
lg Introduction 
Mme functions of the BG Monitor are to a large ex- 
tent based on data stored on a menu file. These menus con- 
tain all information necessary to display a requested image 
at the operator control console and to process related in- 
puts from the operator. This menu file is created, updated 
and checked by the Support Software which runs off-line 
under UNIX. 
2. Menu Editor 
This program updates the menu file by processing an 
input file that contains necessary information in standard 
formats. Based on general information about a menu it. gen- 
erates a set of display commands to create an image. Also, 
all necessary information to process inputs fron either the 
keyboard or the Touch Input System is prepared and stored in 
the menu file. 
3. Menu Checker 
This progran allows checking of all information that 
is stored on the Menu File. It extracts all requested in- 
formation and presents it in a readable format. Thus any 


wodi fication of the menu file can be verified. 
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IV. BACKGROUND MONITOR 


ee ENTRODUCTION 

ts chapter will present the Background Monitor, which 
executes in the background environment of RT-ll. The 
hardware used by the Background Monitor will be addressed 
First. Then the general software structure and detailed 
software description will follow. 

Special terminology used to document the Background Mon- 
itor will be introduced when appearing the first time in the 


text. 


ER HARDWARE ENVIRONMENT 

l. Entroduction 

The hardware used for the Background Monitor was 

mms tructed around the DEC PDP-11/34 miniconputer. Most of 
the equipment was standard peripheral devices. A dual disc 
drive was used which provided an on-line storage capacity of 
80 megabits. A daisy wheel printer terminal was used to 
provide hardcopy output and its keyboard served as a backup 
mere the Touch Input System. Off-line storage for. transfer- 
ring extracted output data and software was provided by a 
magnetic tape unit. A hardcopy unit was used to output. ex- 
act copies of graphics displays. Finally the HP Terminal 
and the Touch Input System have to be addressed. Their main 
Features are described in the following paragraphs. 

2. Hewlett-Packard 2649A Terminal 


This terminal has a 5 inch by 10 inch rectangular 
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EnrUav providing 24 lines of up to 80 characters. Sone of 
the terminals capabilities are screen up and down rolling, 
insertion and deletion of characters and lines, cursor sens- 
mee and addressability, tabulation, margin setting, line 
drawing, and different character sets. 

The image is self-refreshing and portions of the im- 
age can be displayed in different modes, like blinking, re- 
Beeren halfbrizht, or a combination thereof. All operations 
are controlled by the terminal’s microprocessor. 

EX carroll Touch Input System 

The system provides a means for the operator to  in- 
teract with the BG Monitor. The Touch Input System is im- 
plemented by utilizing a scanning infrared beam technology. 
A panel is attached to the Hewlett-Packard (HP) 2649A Termi- 
En such a way that the screen is surrounded by LED en- 
Enters on the bottom and left side and phototransistor 
detectors on the right side and top. Thus they form a grid 
Sf infrared light beams across the display area. To ac- 
tivate the input system, the operator touches the CRT screen 
and then the X,Y coordinates of the touch point are 
transmitted to the host conputer. 

The Touch Input System provides some benefits in 
contrast to a keyboard. (1) The operator does not have to 
alternate between looking at the display for instructions 
and the keyboard to respond to the systen. (2) The touch 
targets can be located at different positions; thus position 


becomes a software design parameter. (3) Only the valid in- 


21 





mo pL ons at a particular situation need to be displayed, 
Eunsceliminating confusion and input errors. (4) The legend 
of each touch target is determined by the data displayed on 
the screen. Pt is easy to change and there is a large 


variety of possible legends. 


Bee SOFTWARE STRUCTURE 
l. Introduction 

There existed two constraints for the development of 
emer BG Monitor. (1) There was a limit in available memory 
in the minicowputer and (2) the execution time had to be 
fast enough to react to operator requests in quasi real 
time. 

For these reasons there was no display image genera- 
tion done by the BG Monitor. Rather the set of display con- 
mands for each image (menu) were stored on disc in the Menu 
File. madgiitondlly, all BG Tasks, which perform mutually 
independent functions, were linked as memory overlays on a 
RT-ll memory image file. They were swapped in by RT-11 when 
they were to be executed. Thus the structure of the BG Mon- 
itor shows a computer resident program part (BG Controller) 
and non-resident program parts (BG Tasks). 

The RT-ll-provided swapping of BG Tasks allows 
memory independent growth of the BC Monitor. Only the size 
of a BG Task is limited, not their number. 

Besides this extendability, ease of maintainability 
Was supported. As far as possible, program and data were 


separated. Sharing of data by the program's nodules vas 
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kept minimal. 
2, puc rogund Controller 

This resident part of the BG Nonitor was designed to 
be highly independent of any BG Task or data on the menu 
file. Its components are the Executive and several 
Managers. The BG Controller processes requests by the 
Operator or any of the BG Tasks. 

Two different levels of program execution are imple- 
mented. Most of the BC Controller’s modules run on a com- 
pletion routine level (scheduled by the progran, called by 
El). The remaining parts execute as BG mainline pro- 
grams. 

3. Background Tasks 

A BG Task performs a group of related functions. 
The tasks are independent of each other. Only one BG Task 
is executed at a time. Using the overlay feature of  RT-11, 


these BG Tasks all reside in the same memory area. 
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V. DAOGRCGKOUND CONTROLLER 


Ar BETRODUCTION 
The following paragraphs give a detailed documentation 
Ehe resident part of the BG Monitor. Additional informa- 
tion is embedded in the program listings. 
The BG Controller has the following components: 
EM xecutive 
= Control I/O Manager 
= Input Manager 
EE contro! Command Manager 
= Menu Manager 
- Parameter Block Manager 
- Log Nanager 
- Message Manager 
The Executive consists of the main program and some Con- 
mon Routines called by other BG Managers. Any request for 
operator input by the Executive or a BG Task is processed by 
Nue Control 1/0 Manager. Operator inputs from either key- 
board or Touch Input System are processed by the Input 
Manager. The Control Command Manager interpretes inputs for 
the BG Controller. The Menu Manager updates the display im- 
meer and provides the BG Controller with all information 
about possible inputs. Updating of the Parameter Block for 
the FG Monitor is done by the Parameter Block Manager. hee 
requested the Log Manager logs all operator inputs. Finally 


the Message Manager displays and erases all warning messages 
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md input related messages. 

Most of the BG Controller Managers execute on completion 
routine level. The Input Manager re-schedules itself 
wdn cally to process any operator input. Thus this 
Manager and all other Managers called from it (Control Con- 
mand Manager, Parameter Block Manager, Log Manager) execute 
on completion routine level. 

The Menu lanager has to perform certain functions after 
some time lapse (i.e. erasing of a displayed menu some time 
after an input occurred). On the other hand the Menu 
Manager may be invoked based on a BG Task request or based 
On an operator input. Scheduling the call takes advantage 
of the RT-1ll-províded queueing function and thus avoids any 
ponflict. 

Similar reasoning applies to the Message Manager being a 
conpletion routine. It may be invoked by all other BG Moni- 
Dor programs, which either run on completion routine level 
or as BG mainline programs. Fig. 5.1 shows the structure of 


mmersG Controller. 
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Pygure 5.1 
EBrüucture of the BG Controller 
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BERG Controller provides the operator with an in- 
peresting feature. eyes possible (tol interrupe any active 
Mmmmecion of this program by selection of another function. 
This may create a chain of unfinished functions, and when 
the last one is finished the former one automatically will 
be invoked again. 

Exanple: 

The operator has started a BG Task that performs certain 
hardware tests. While this is being done he may invoke 
another functton to have some documentation displayed. 
While doing this, the operator wants the system status and 
he starts another function to display the status. Even now 
he may invoke again an already interrupted function. 

When the operator disables an active function, the most 
Becent interrupted function will continue. 

The following text uses certain fixed terms, whose mean- 
ings are given below: 

Beet COn: displayed button on the screen 

- permanent button: button always being displayed on 
the screen at a fixed location 

- menu: display image with all possible 
input information 

sminput option: information about a possible input 

- menu-id: lgentiffiest ion of a certain menu: 
it is the nunber of a menu’s first 
data record in the menu file 


- task menu: menu which is initiated by any BG 
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f 


Task 
wonte aL ler menu: menu which is initiated by the 


resident BG Controller 


See COMMON DATA 

This paragraph will document important common data which 
are used by more than one BG Manager. 

1. Menu Table 

The one-dimensional array “mentbl” is used to 

reserve memory locations to store display image and input 
options of a menu. The lower part of this array contains 
Bren input options of the permanent buttons. This informa- 
tion stays there all the time. The upper half of the array 
is used to temporarily store menu records with display im- 
ages. After the display image has been transferred to the 
HP terminal, pusMarravwlitl store the remaining Input. op- 
tions of a specific menu. 

EE Menu Stack 

The BG Controller allows certain menus to 

“overwrite” other menus being displayed. In order to get 
back to previously displayed menus, their menu-ids are 
Stacked in  "menstk^. Thís menu stack can store up to 20 
menu-ids. Should an overflov occur, the whole stack will be 
saved in the menu stack file. In case there is a stack un- 
derflow and a menu stack is saved in the file, ie villl be 
retrieved from the file. Thus the last initiated menu is 


displayed first (last in, first out). 
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B. Message Stack 


Mie array msgestk' is used as a stack for saved 
warning messages. It consists of an upper and a lower half. 
Ina case of a stack overflow, the lower half is saved in the 
message stack file to provide empty entries for any more 
warning messages. Then new messages always will be entered 
into the lower half and saved in the file if necessary. 

Retrieval of warning messages from the stack is done 
from the upper half. If it is empty, the oldest saved stack 
Mehe menu file will be stored in the upper half of the 
stack. 

This method assures that the oldest messages will 
always be displayed next Gelesen lot. out): To save 


memory, the messages are stored in variable length format. 


EXECUTIVE 
me Executive of the BG Controller consists of the main 

progran and the Common Routines. The Common Routines are 
used by more than one BG ¡¡anager. The Executive is called 
by RT-11 when the BG Controller is started and executes as a 
Ima inline program. The Executive does not return control 
EN —11]; rather, it stays in an infinite loop. The overall 
algorithm is given below: 

Preset all Common Data 

Open all files 

iN uL12])ze HP Terminal 

enom emienu Manager to display initial start menu 


Do forever 
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He act identifier from Control I/O Manager 
Call BG Task 
Close all files 
Thus the Executive receives the request for the next BG Task 
NIUSUthe Control I/O Manager and then transfers control to 
the selected BG Task. The following paragraphs discuss the 
Common Routines. 
D Common Routine "endfbk^ 

Feedback to any operator^s input is done in the fol- 
lowing way. There is always an acoustic feedback. Per- 
manent buttons on the screen are displayed in a reverse mode 
if the related function is active. Other buttons are 
displayed in reverse mode after they have been selected by 
the operator. The permanent buttons for hardcopy are 
displayed in a reverse mode for about one second. If these 
functions are activated, the Input Manager reverses the but- 
ton display and schedules this Common Routine to be executed 
one second later. It then will display the button in the 
normal mode again. 

2. Common Routine “enhanc” 

This routine performs an enhancement of a displayed 
button on the screen. It retrieves the necessary button 
coordinates from the input options and sends a command 
string to the HP terminal to perform the requested enhanc- 


ment. 
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meee common Routine errmsg’ 





This routine was implemented for two reasons. (1) 
The Message Manager which is responsible for display of any 
operator input related messages or warning messages is a 
conpletion routine and may not be called by programs execut- 
ing as a BG mainline program (e.g. BG Task). Thus the nes- 
sages have to be stored temporarily until the Message 
Manager is called. (2) There is only one routine processing 
all requests to display a nessage. 

There is a buffer for only one input-related mes- 
sage; the Message Manager will be invoked to display the 
message before the next operator input is possible. Warning 
messages may be created in a larger nunber until the next 
call of the Message Manager. Thus the variable length mes- 
sages are stored in a buffer large enough to save 2209 char- 
acters of text. 

4. Common Routine ’ascint” 

All the information on the Menu File is coded in 
ASCII. In order sto store a three digit integer number in 
two bytes (one word), such a number is converted using the 
Mo wing transformation: 


Upper Byte = integer/30 + 40 


Lower Eyte = integer modulo 30 + 40. 


is ensures that both bytes will contain valid ASCII char- 
acters. This routine will convert such a coded nunber into 


an integer. 
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D; CONTROL I/O MANAGER 

ENS is a BG mainline program. Tesıcszscalled by either 
BP Executive or any BG Task to process a request for input 
from the operator. These calls are mutually exclusive; ei- 
ther the Executive is executing or it has transferred pro- 
meamecontrol to a BG Task. The Control 1/0 Manager returns 
only when a valid operator input has been made. Thus it 
remains looping until the Input Manager provides a valid in- 
put. If a BG Task requests that a new menu has to be 
displayed, the Control I/O Manager will schedule the immedi- 


ate call of the Menu Manager. 


E. INPUT MANAGER 

This program executes on completion routine level. Thus 
MAT not be interrupted by any BG Monitor program. It is 
Mealy called by the Executive and then it re-schedules 
its call every 0.1 seconds by using an RT-11 prograuned re- 
quest. It examines the comman data “flag” to check whether 
any operator input has ocurred. 

Upon an input from the operator the Log !ianager will be 
called to log the command if requested and feedback will be 
provided. If the chosen input option requests a new menu to 
be displayed the Menu Manager will be scheduled to display 
it. Otherwise the currently displayed menu will be erased 
one Second later. In case of an input from a permanent but- 
ton the Control Command ilanager is called. kote that all 
prograns called by the Input Manager also execute on comple- 


Eon routine level. 
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E CONTROL COMNAND MANAGER 
This program processes all inputs from permanent buttons 


many controller menu buttons. The permanent buttons are: 


GRINT CRTI: ilake a hardcopy of the graphics 
display on CRT 1 
ZA RINT CRT2: Make a hardcopy of the graphics 


display on CRT 2 


EA TATUS: Display the system status 

= ELECT: Selecta new function 

ERC ONTROL: Change SSA control paraneters 
BEEULCLP: Provide help to the operator 


with respect to further actions 
- ACKNOWLEDGE: Acknowledgement of a displayed warning 
mesage; erase it 

The permanent buttons Status, Select, Control, and Help 
function in an on/off mode. When they are chosen the first 
time, the function is initiated, the menu will be displayed, 
and the permanent button will become enhanced. When an ac- 
tive function (permanent button is enhanced) is chosen, the 
Function will be deactivated, the button will be displayed 
normally, and any waiting menu or the initial start menu 
Will be displayed. 

If a new BG Task is to be started, any old Task menu 
will be erased and the identifier for the new BG Task is 
Saved to be returned to the Executive. 

Any input request to change the current PB will be. pro- 


cessed by the Parameter Block Manager. 
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meee MENU MANAGER 

INES. program is the most important part of the BG Con- 
roller. It executes on completion routine level and is 
responsible for updating the display on the HP Terminal. and 
updating the valid input options. 

1. Menu Display 

This paragraph gives a description of the display 
layout used to display menu information. There are three 
different areas on the screen. (1) Tne permanent buttons 
are displayed as a column at the left side of the screen. 
They will never be changed during progran execution. (2) 
The bottom lines of the screen are reserved to display 
operator input related messages and warning messages. (3) 
The remaining field is used to display any menu initiated by 
ene BG Controller or any BC Task. Fig. 5.2 displays the 
mayout. 

When a new menu is being displayed, the menu field 
will be erased first. To erase the image on a line, the in- 
age can be overwritten with blank characters (quite slow) or 
ca be erased up to the end of the line. The latter 
method is faster and has been implemented. This is the rea- 
son why the permanent buttons are displayed on the left side 
of the screen. 

As the permanent buttons always are displayed at the 
Same locations, the operator, once familiar with the layout, 


„can easily locate these buttons. 
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Blaure 5.2 


HP Terminal Display Layout 
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EN Menu Stack "menstk^ 

The BG Controller allows the operator to have ini- 
tiated several functions at a time. Thus the Nenu Manager 
has to keep track of all functions and their related menus. 
This is done using a menu stack. The top of this stack al- 
ways holds the controller menu being displayed. If a new 
controller menu is requested, it is placed on the stack and 
mě till be displayed. The menu stack holds 20 menu identif- 
ier. sta stack overflow occurs, it is saved on disc in the 
menu stack file. In case of a menu stack underflow, an  ex- 
isting stack from the menu stack file is retrieved. 

Ex Menu Hierarchy 

There exist three different kind of menus in the BC 
Monitor. COE The Initial Start “Menu contains the image of 
the permanent buttons and is displayed at the program start. 
02) The display of Controller Wenus is initiated by select- 
ing a permanent button or a button of another Controller 
Menu. (3) Task Menus are initiated by BG Tasks. There ex- 
ists only one Task Menu at a time in the ilenu Manager. Its 
genau identifier is stored in ’icurtm’. It is either being 
displayed or waiting to be displayed. 

The Menu Manager displays a new menu using this 
PErority scheme: First any Controller Menu in the menu stack 
is selected. If there is none, any waiting Task Menu is 
considered. If there is none, the Initial Start tenu will 


be displayed again. 


36 





mee Menu Structure 

All menus are organized in a tree structure. Bach 
menu provides information about its predecessor menu and 
each of its buttons may request a successor menu. Thus it 
is possible to always go up and down within this menu tree. 
The Menu Manager keeps track of all paths within this tree 
structure that have been selected by initiation of one or 
more functions. Actually only the nenu at the bottom of a 
particular path has to be saved. A predecessor menu always 
can be determined uniquely. Its nentru idis part Of the in- 
formation provided by a menu and is stored for all menus be- 
ing displayed in "ipredn^. 

The menu stack “menstk” saves the. menu-ids. of. all 
menus at the bottom of a path. Thus a new menu of the sane 
function just replaces the predecessor menu on. top. of. the 
menu stack. A new menu of a different function is placed on 
mopeof the stack. If an active function is deactivated 
(erasing of the menu at the botton of a path), the next menu 
Enwrhe stack will invoke that function having been active 
previously. 

This method provides the possibility for an operator 
to initiate as many functions as he wishes. This allows him 
to have several functions at intermediate steps at the same 
time. In addition, a DG Task may run and perform a variety 
of actions that do not require operator inputs. 

lany activities within a function only require the 


display of another menu. Thus a great deal of logic and de- 
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mons is built into the menu structure. This permits a 
simpler program logic and shifts many changes of the BG Mon- 
itor towards an update of the menu file, which requires no 
mrogran modification. 
E Functions 

Depending on the requested function and the status 
of the menu stack these related actions vill follow: 
EOUDdate of the menu stack, (2) retrieval and display of 
the menus image, (3) retrieval and storage of the input op- 
tions, and (4) update of any button enhancements. Bien Dne) 


EnDIiS3ys the overall program structure. 
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Bigure 5.3 


Structure of the Menu Manager 
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fe PARAMETER BLOCK MANAGER 

Me actions of the FG Monitor are based on information 
stored in the Parameter Block (PE). These parameters may be 
modified by the operator independent of any BG Task running. 
The related operator interaction is processed by the Parame- 
ter Block Manager. 

The PB ¡lanager saves all new parameters in the PB. 
Euro completion of the update, the PB is sent to the FG 
Eondjtor using the communication services provided by  RT-11. 
BEN rb must not be sent to the FG Monitor before the whole 
Mate is completed. This could result in invalid interre- 
lationship between the parameters available to the FG Moni- 
tor (i.e. sone parameter changes have to be done simultane- 


ously). 


I. LOG MANAGER 

When requested all operator“s inputs will be logged and 
med. in the log file. The plain-English log text can be 
Memrievyed from the input option information stored in common 
data. The Log Manager sequentially writes these log texts 
MOS the disc. The contents of the log file can be printed 


Bomtrace all the operator’s actions. 


MESSAGE MANAGER 

The Message Manager is responsible for upcating the mes- 
Sage field and the enhancement of the ACKNOWLEDGE button on 
mre HP Terminal display. It processes requests by either 


men BG Controller or any BG Task to display or erase mes- 
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Mes. These messages may be initialized by an operator’s 
mm put Or by any failure detected by the BG Monitor. These 
MOL types are handled differently. Only one operator input 
related message is expected to be existent when the Message 
Manager is called by RT-11. It is assumed that the operator 
has no chance to do another invalid input before the Message 
Manager processes the first illegal input. 

Also it is assumed that a BG Task only generates one 
warning message before the Message Manager will be called. 
This is because a EG Task executes as a mainline  progran. 
If it detects an error it schedules the ifessage Manager, a 
completion routine, at once. Thus the Message Manager will 
be called and the BG Task^s execution vill be interrupted. 
Warning messages generated by the BG Controller, however, 
may be generated when executing on completion routine level. 
nese completion routines do not interrupt each other, 
there may be more than one warning message to be processed 
by the Message !llanager when it is called. 

I. pue Related ilessaces 

When any program detects an illegal operator input 
it places a message text in “inpmsg” and schedules the Mes- 
Sage Hanager to be executed at once. The Message Manager 
then displays this message on the related line within the 
message field on the screen. aAny other input. related. mes- 
Sage being displayed will be overwritten. Thus the message 
always responds to the last operator“s input. 


Any input related message will be erased when the 
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EN rator does any input. The Input Manager always schedules 

the Message lianager to erase any existing input related nes- 

Sage When a valid input has been made. In case of an ille- 

gal input the old message will be overwriten by a new one. 
2. Warning Messages 

The text of a warning message generated by a BG Task 
will be in “iwmsg”. Warning messages generated by the BG 
| Controller are saved in “msgw”. 

If no warning message is being displayed the new 
message will be written on the screen. If there is already 
a warning message being displayed the new one vill be saved 
on the message stack. In case of a stack overflov it will 
be saved on disc in the message stack file. The Message 
Manager will retrieve all stacked messages using the first- 
in first-out (FIFO) scheme. The message stack is divided 
into a lower and an upper half. A read index points to the 
E messape to retrieve fron the stack; a write index 
points to the next free entry in the stack. The read index 
always stays in the lower half of the stack. tt only) the 
mower stack half is used, the write index stays in this 
mar. Else it always points to entries in the upper half. 

When the upper half is filled, it is saved in the 
iiessage Stack File and the write index is reset to the be- 
ginning of the upper half. When the read index reaches the 
end Of the lower half, the lower half is filled either with 
a saved stack in the file or with the upper half. The read 


index is reset and in the latter case the write index points 


Ju 
td 





m. entry in the lower half. Fig. 5.4 illustrates an ex- 
anple. 

Any saved warning message will cause a blinking of 
mre ACKNOVLEDGE button. Upon selection of the ACKNOWLEDGE 
button the operator may initiate erasing of a displayed 
warning message. The Message Manager will display any other 
waiting message from the message stack or clear the  nessage 
line on the screen. If there are no more warning messages 
waiting on the message stack the ACKNOWLEDGE button will 


stop blinking. 
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Figure 5.4 


Message Stack Illustration 
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mele > 


Phases: I - Only lower stack half in use 


II - Upper half has been filled and is written 
onmdisc; write will continue 
III - lower half is read; read will continue 
IV - stack half is retrieved from disc; 
read will continue 
V - lower half has been read;read will continue 


VI - Upper half has been moved into lower half 


Legend: (x)- Sequence of message blocks 


R - Read index; W =- Write index 
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VI. BAGKGROUND TASKS 


Meee LRODUCTION 

Task performs a group of related functions. It ex- 
ecutes as a BG mainline progran. The BG Tasks are indepen- 
dent of each other and only one vill be executed at a time. 
Thus the overlay structure of RT-11 is used. When linking 
the BG Monitor all 2G Tasks will be assigned to the same 
memory area. When a certain BG Task is called by the Execu- 


Pave it will be loaded if not already in memory. 


fee BACKGROUND TASK STRUCTURE 

After a EG Task has been started it will execute in- 
Eendently of other BG Controller functions. Only if the 
BG Task needs sone operator input to proceed it will call 
control I/O lanager. Also it may schedule the call of 
the llessage Manager to display or erase a message. 

The operator has the option to start a new BG Task while 
Euer is executing. Thus the old one has to be killed. 
The Executive will set a common data unit, the “KILL-flag’, 
Eh indicates that the running BG Task is to be killed. 

recognize this condition the BG Task has to check 
his flag. Thus the design of a BG Task has to be done in 
such a way that the control path always passes certain check 
MS ro examine the KILL flag. When the KILL condition is 
EE nized the BG Task must not initialize any new I/O or 
mehedule any other program. It returns control to the Exe- 


mm@emve after all initialized I/O has been completed. Ap- 
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m ately the KILL condition is checked after a specific 
Sup-function has been completed or while waiting for I/O 


completion. 
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VII. pure One SOFT RE 


INTRODUCTION 

Most of the BG Monitor”s actions are determined by the 
@emeeents of the menu file. This file contains all informa- 
tion to create an image on the HP Terminal and to process 
the operator’s inputs from keyboard or Touch Input System. 
It is generated and updated using Support Software that ex- 
wes under the control of UNIX. 

One program updates the Nenu File, it is called Menu Ed- 
Ntor. Another program, the Menu Checker, is used to verify 


any modifications of the menu file. 


fe men EDITOR 
D lntroduction 
imme iienu Editor processes fixed format input and up“ 
dates the menu file. To simplify the menu generation the 
user does not have to specify the exact locations of text or 
displayed buttons on the screen; the Menu Editor will per- 
form all necessary arrangements of the image. 
The Menu Editor needs three files which have to ex- 
t in the UNIX file system: 
~ menu file, 
~ intermediate menu file, 
- input file. 
iyeminpwt foi the Menu Editor can not be taken from 
a standard input device because the program reads over the 


Enput file twice. The first time all requested information 
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mh be extracted to compute the image size, to get the 
referenced menu names, POmuUpddbewrEne renu file directory, 
mato provide the lienu Editor with sufficient knowledge to 
arrange the created image. During the second read over the 
input file a new or updated menu will be the result. 
The following terminology will be used in the furth- 
er presentation: 
- image: the complete image of the HP 
Terminal 
- image block: a subset of the image; it is 
one block of text or it is a 
question with its responses 
- response: subset of a question block; 
it is a key ior -a displayed 
button 
- predecessor menu: a menu which preceeds some 
other menu in the display 
sequence 
~ successor menu: a menu which succeeds sone 
other menu in the display 
sequence 
The ¡lenu Editor Manual in the appendix will give 
Sufficient information about how to use the progran. 
2, Files 
The ifenu File contains a Menu File Directory and the 
menus. Bes records have a fixed length of 544 bytes. The 


directory uses 20 records with 45 entries each. For a menu, 
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1 


6 records are needed to store the maximum possible amount of 
mepormation. Because UNIX does not provide direct access 


Meee FORTRAN, the Nenu File has to be read sequentially. 


TX I/O system does not write leading or trailing ASCII 


characters. Therefore it is crucial that the bytes 1 


EE OL a record do not contain such a character. Anoth- 


constraint by UNIX prohibits more then fifteen open re- 


quests for files. Thus a record that is located between the 
Meeinning of a file and the read pointer can only be ac- 
essed by closing and reopening the file. This is the only 
ay to reset the files pointers. This procedure “easily 
exceeds the maximum number of file open requests. Therefore 
a Temporary Menu File, “menuout”, is used. 

There are two reads over the ifenu File. Tie? first 
time the locations of referenced menus in the nenu file are 
extracted. Also the directory is updated and the new version 
is copied to the Temporary tienu File. The second time all 
unchanged menu records are copied and updated records are 
Written to the Temporary Nenu File. Finally the whole Ten- 
Morary Menu File is copied to the Menu File. 

When creating the menu records each question or text 
Section is considered to be an image block. Such a block 
Will always have the same structure depending on the input. 
at. simply will be copied in the demanded form. Tue image 
commands for a question will be computed depending on the 
Meeation of the buttons, their size, and their number. When 


Bie number of required lines on the screen is determined the 
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whole image will be rearranged by separating the blocks with 
mwallable blank lines. 
b. Functions 
The Menu Editor will perform several functions which 
all update the menu file directory and modify renu records. 
a. Initial Start lenu 

mmes irst nenu that has to be created is the In- 
Mal Start Menu. Mis fúünction initializes the Menu File 
mmarcreates entries in the directory for all initial menus, 
EN Initial Status Menu, Initial Select Menu, and so on. 
The BG Monitor expects these menus at fixed record loca- 
tions. 

Menr ecords of the Initial Start tienu are creat- 
ed. ime image records will contain the command for the EP 
Terminal to (1) draw all permanent buttons on the sereen, 
Bez) to clear the rest of the screen. Also the informa- 
tion about possible input options is stored. 

b. Create a Menu 

mais function is used to create a new menu. The 
ENESt empty entry in the menu directory will be filled with 
the new menu name and the number of its first record: rt 
the menu”~s predecessor menu is not yet existent a new entry 
Mer be generated for it. If the menu has any successor 
Menüs their entries will be searched in the directory; if 
they are not yet existent new entries will be generated. 
EE tne directory has been updated, the HP Terminal con- 


mands and information about possible inputs will be conputed 
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mma stored in the menu records. 
C + Update a ilenu 
mose uneton is Only allowed if the referenced 
menu is already in the Menu File. Tesa location PS retrieved 
from the menu directory and the menu records are generated 
the same way as with menu creation. 
d. Delete a Menu 
This function simply searches the referenced 
menu“ s entry in the menu directory and deletes it. <A menu 
to be deleted may have successor menus. The user has to 
delete any successor menus if they are no longer needed. 


The predecessor menu has to be updated as well. 


PENU CHECKER 
l. lutroduction 

tois program allows verification of any modifica- 
Meese Of the Lenu File. It extracts the contents of the 
menu directory and the menu records. The function requests 
are taken from the standard input device. Output is done at 
We” standard output device. 

The Menu Checker Manual in the appendix will give 
meer ecient information about how to use the progran., Also 
examples of possible outputs are shown followins the appen- 
dices. 

2. Functions 
mem owlowine functions may be selected by the user: 
Directory: All entries of the Menu File 


directory will be extracted 
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fnpute options: 


marge: 


Allin ornat ion about possible 
input options of a specified 
menu will be extracted 

The HP Terminal commands that 
create the image will he 


extracted 
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Welle BRERGROUNDSIOTITOR FILES 


A. INTRODUCTION 

The BG Monitor uses several filesi for different Pure 
poses. memu bile contains all information to control the 
Operator interaction and resulting actions. Two temporary 
Memes, the Nenu Stack File and the Mesage Stack File are 


used to save any overflown stacks. AO File vill? «contain 


e 


Plain-English input commands done by the operator. 


NEUE NU FILE 

Mires file is created using the Nenu Editor. Its mode is 
weet access and its form is unformatted. All information 
represented in ASCII characters. Integers are converted 


bona 2 character ASCII code using the following mapping: 


n 


Upper byte Mmteger/30 F 40 


Lower byte integer modulo 30 + 40 

Mme tile has fixed length records of 544 bytes each. A 
mem Occupies 6 records to store its information. To store 
Mmemcirectory 20 records with 45 entries each are used. 
Each entry contains a menu name and the location of its 
měst data record. The menu name is represented in 10 ASCII 
characters. Prempoanter to a menu s first data record is a 
3 digit integer. There exists a one-to-one mapping between 
meee Location of a directory entry and the location of the 
menu records. The following parameters are used: 


= location of the first menu record behind the 


directory 
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m location of the directory record 

m pointer to entry in the directory 
The menu s first data record number is determined by 
a number = i + (45*(j-1) + k-1)*6. 
mime coded record number is only used by the Menu Editor. 
The BG Controller does not have to access the directory at 
all. References to a menu by another one is provided by its 
Mmeeord number to decrease the number of necessary file 
accesses. 

The first 4 records of a menu are used to store the HP 
terminal commands which will create an image on the display. 
Subsets of a command string are separated by an ASCII °$S’. 
mime end of data in an image record is indicated by an ASCII 
© last used image record has an ASCII ^^^ in byte 
540. These three ASCII characters therefor must not be used 
in any image text. 

The last two records contain information about possible 
operator inputs as well as a parameter block. A record is 
Bartitioned into 30 byte sections, thus providing entries 
more iS input options. These are the data stored for each 
possible input: 

Porada. i: Legend of the button or the key 


(ASCII character in lower byte) 


ho 


-= word 
to -plain -enelish log command (10 characters) 
- word 7: left boundary of a button 


- word @: lower boundary of a button 
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mord. 9: right boundary of a button 
mord 10: upper boundary of a button 
mord 11: action code; it determines the 
reaction of the BG Monitor 
- word 12 
to 15: used for any additional information 
(e.g. BG Task identifier) 

A parameter block informs the Nenu tfanager about sone 
additional menu parameters. The predecessor’s menu-id is 
Erored. The number of possible input options is given. Al- 
so the type of the menu (e.g. Status menu) can be retrieved 
MOM. this parameter block. Word 15 of this block contains 
EN ASCII characters “~~~. The parameter block is located 
Meme SOtCh entry for the Initial Start lenu. For all other 
Seems it is located in the 29th entry. Fig. 8.1 will 


display the file layout. 
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EG. | 


Menu File Layout 
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ERU STACK FILE 

This file is used to intermediately save any menu 
stacks. Me is a direct access, unformatted file. One stack 
Mmemsists of 40 bytes to store 20 menu-ids. Stacks are writ- 


No the file and read in a Last-out First-in scheme. 


NAMES SAGE STACK FILE 

This direct access file saves any overflown message 
Backs in unformatted form. A message stack has a size of 
120 bytes. The scheme to save and retrieve these stacks is 


First-out First-in. 


E COG FILE 

When logging of all operator input commands is requested 
mee LOg Manager writes plain-English commands to this file. 
It is accessed sequentially and is formatted. Each conmand 
Memsts Of 10 ASCII characters and the contents of this file 


can be listed to trace all operator actions. 
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IX. COMCIEUS BONS 


Me Software for the Background (RG) Monitor documented 
in this thesis has been developed and tested successfully. 

NUEEdata in the Menu File causes specific actions to be 
wen DY the BG Monitor when an operators input is pro- 
Messed. Thus the execution of the BG Monitor is to a large 
BM nt controlled by the contents of the Menu File. This 
control, imbedded in the data, decreased the size of the BG 
MemerOller and allowed a general program structure which is 
wen flexible. Many changes of a BG Monitor”’s function can 
be implemented by just updating the Nenu File. E pro~ 
gram modifications are necessary. 

Extensions of a certain function or addition of new 
ME tons Without changing the structure of the BG Monitor 
Are possible. This can he done simply by adding new menus 
Buche Menu File and by installing a new BG Task. This only 
Mequires minor changes in the Executive (to call the BG 
Msk) and creation of new menus in the Menu File. A BG Task 
ĉan be developed and tested separately fron the existent BG 
Monitor. 

Further software modifications are possible. The menu 
McCord size (now 544 bytes) could be reduced to 512 bytes 
(Standard physical record size on a disc). This. vould in- 
crease the speed of data transfer by approximately 100 nil- 
seconds. The new size would be sufficient to store all 


BEutormation about a specific nenu. 
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Ertain I/O problems with the operating systems caused a 
considerable delay in the software development. UNIX only 
mibows fifteen requests to open files fron FORTRAN programs. 
MEC restriction is not docunented in the UNIX manuals. To 
Spe With this problem, the form of some file operations had 
to be changed. 

A software error related to I/O within completion 
Eines was detected in RT-11. A patch received from the 
Meet al Equipment Corporation was implemented in RT-11 and 
resolved this  problen. Source code for this patch is in- 


eluded with the program listing section of this thesis. 
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APPENDIX A 


Suita ky OF =SOFTIWARE AND DOCUMENTATION 


This summary lists the existing programs and manuals 


which have been written during the software development. 


ENDO Monitor, consisting of the BG Controller 
and DG Tasks 

EN enu Editor 

menu Checker 

- Manual for the ¡lenu Editor 


manual For the Henu Checker. 
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APPENDIX B 


MERU EDITOR MANUAL 


ES PRODUCTION 

Me Menu Editor is a program that executes under the 
Eperating system UNIX. It is used to create, update, or 
delete menus in the Menu File used by the BG Monitor of the 
SATCOM Signal Analyzer. The RATFOR source program is stored 
in the file “menued.r”~. The executable program is saved in 
the file “menued”~. The Menu Editor will execute using the 
Bonumand: 


menued 


ES FILES 
The Menu Editor requires three different files that have 
to Est in the UNIX file system. These are their 
Filenames: 
- “menufile” : This is the Menu File that will be used 
by them BG Monitor- 
- ”menuout” : This is a temporary menu file used to 
store intermediate data. 
=- "infile” en o ae conGains all user specified 
inpüt to modify che Menu File. 
All files will be accesses sequentially, the contents is 
oded in ASCII. 
l. File “menufile” 
ne. file initially is not yet existent, it has to 


e 


be created using the UNIX Editor “ned”. Any dunny input may 
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NEN rPored in the file. The structure of “menufile” will be 
Mame rmined by the Menu Editor when it is accessed the first 
eine. 

The file consists of 544 bytes records. Each record 
c valid information within the first 540 bytes. The 
[eet tour bytes will contain the ASCII characters 0, 0, CR, 
Meee tne Menu Editor will write records with a length of 542 
Mc. UNIX will add CR/LF, thus creating a record of 544 
bytes. 

Mee first 20 records will contain the Menu File 
ENUGCtory. Each directory record allows 45 entries. An en- 
try contains a menu name (10 ASCII characters) and a pointer 
to the first data record of that menu. The initial directo- 
ry will be set up when executing the function “Create Ini- 
Bra7 Start lenu’. 

Mer each menu 6 records will be used. The first 
meme records contain the commands to create an image on the 
terminal display. Subsets of  conmand strings are 
Meparated by ASCII “"$“. The end of usable image commands on 
EE cord is indicated by an ASCII "|" The last used image 
E ord will contain an ASCII °”” in byte 540. These three 
ASCII characters must not be used in any nenu“s image text. 

Nro additional records provide information about 
possible operator inputs in reaction to the display of this 
Menu. These records are partitioned into 30 bytes sections, 


meas providing entries for 18 input options each. The in- 


formation stored for each input option will be 
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erabe of a button or key 

= plain-English log command 

" boundaries of a displayed button 

(lines and columns) 
San action code to determine the 
BOmlonitort. s action 

- additional information that may be requested 
EN araueter block within these records will contain addi- 
tional information about sone menu parameters. It stores 
(1) the predecessor“s menu-id, (2) the menus type (e.g. 
matus Nenu), and (3) the number of possible input options. 
malo ot this entry will contain the ASCII characters 
E Mie parameter block is located in the 36th entry for 
mme Initial Start ifenu. For all other menus it is located 
Erthe 29th entry. 

m. File "menuout^ 
Mes: file does not yet exist in the UNIX file 
System, it has to be created using the UNIX Editor “ned” 
Hay contain any data. This file will have exactly the 
Same structure as the Menu File. It is used to copy un~ 
Enaneed records fron “menufile” and to add updated records. 
When the Nenu Editor has completed its requested function, 
copies the contents of “menuout” to the Menu File 
fee File ^infile^ 
Mas file will provide all information necessary to 

mam the Menu Editor. The file is to be created using the 


UNIX Editor “ned”. The following terminology will be used 
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Geet nis manual: 

= predecessor menu: a menu which preceeds sone 
OC he nen ChcmmadispD la“ 
seguence; 

- successor menu: a menu which succeeds sone 
other menu in the display 
sequence; 

= nee ura the image on the IP Terminal 
display created by the menu 

ace block: a subset of the image; it is 
one block of text or it is a 
question vith its respomses:^ 

= response: subset Tof a question. Block; 
iet is a key ‘or. a displayed 
button; 

Meger inputs have to be ended with ',“. Character in- 
Nave to be ended vith ^O^. A line of text is to be 
EEUU either by ~|~ (if it is not the last text line) or by 
Be, Comments are allowed on each line following these end- 
mae symbols. 
Ao mat of "infile” 
iinesinput format is given below. A number in 


Mmaerentheses indicates the line number in “infile”. 
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Bor all functions... 
a runetion code 
for delete, create, update... 
(2) : menu nane 
for create, update... 
(3) : predecessor menu nane 
(4) : menu type 
es menu title 
(6) : nunber of image blocks 
NorMeschormase block... 
sima t=block code (126) 
number of responses 
location of buttons 
size of buttons 
text lines 
for each response... 
start response code (127) 
label of button 
log command 
action code 
annex 
e Contents of “infile“ 
This section will specify which values are valid 
Mor all possible inputs. 
Minetion code: 
Me DELETE an existing menu 


mee CREATE a new nenu 
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See UPDATE an existing menu 

CREATE INITIAL START menu 
menu names, log command: 

characters 
menu type: 

meee tT LAL START menu 

STATUS menus 

PRE SELECT menus 

TELP menus 

CONTROL menus 

6 - BG TASK menus 
menu title: 

MESE for first line on top of menu image 
Meeation of buttons: 

em čutton row below the text 

2 — button row beside the text 

button colunn beside the text 
me Of buttons: 

number of lines the button vill cover 
Next: 

one or more lines of text 
label: 

Character 
action code: 

L - display a new menu 

return an integer 


EE return a character 
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5 - display the previous menu 
7 - HARDCOPY CRT1 
Meee ARDCOPY CRT2 


pee ACKNOWLEDGE 


NUS STATUS 
MC SELECT 
EE ELP 


13- CONTROL 
14- New BG Task 
15- Change Parameter Elock 
annex: 
action code 1: menu nane 
Eon code 3: integer 
action code 4: character 
action code 14: BG Task identifier 


C. Exanple 


This section vill give an example of how the 


Mimcile” might look like. This input causes 


Che jenu Editor 


to create a new menu which has one question block with two 


responses and a pure text block. 


E, create a new menu 
testmenu G name of the new nenu 
startnenu C predecessor menu 

6, menu type: Task menu 
first Task menu terto title “on top 
2, 2 image blocks 

126, start-code for first 
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line 


block 





a, 2 responses 


B, Poco De Sde text 

B, button size ) lines 

ENS is the text of the question! lst line 
EN cu want to continue touch ^Y^|l 2nd line 
else touch button JN 3rd line 

I7, start-code lst response 

NG label of būtton 

No G log command 

B, action: return integer 

EO, integer to return 

7, Start-code 2nd response 

ye Label of button 

Yes E Log conmand 

E, action: display new menu 

nextmenu G menu name 

E26, start-code 2nd block 

0, no resporses 

0, no buttons 

D. no button size 


mis is a pure text block] 
Must gives some information and hasl 


no input options 
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C. Reo UENCE OF HENU CENERATION 
ma@eminitial 8G Controller menus have to be located in 
Med ienu File records. This is requested because the BG 
Memtroller of the SSA has to find these menus. These are 
the associated menu records: 
Meet ant TIAL START menu -= 21 


initial STATUS menu -- 27 


initial SELECT menu -- 33 
initial HELP menu -- 39 
5) initial CONTROL menu -- 45 


guarantee this sequence the INITIAL START menu has to be 
generated first. The Menu Editor then will set up the Menu 
Mabe directory, create the initial start menu, and place the 
met. initial BG Controller menus into the directory. The 
implementation of these menus then has to be done using the 


RDA LE function. 


fee FUNCTION 
ie OLEATE INITIAL START menu 
fais is the very first function the Menu Editor has 
me process. Moe l build the Menu ride directory and place 
we entries of all initial menus into the directory. The 
menu records for the INITIAL START menu will be created and 
meored following the directory. 
EN CREATE a nenu 
The Menu Editor searches the nenu direcory and uses 
Me first empty entry to store the menu’s name and pointer 


to its records. If the menu^s predecessor menu is. not. yet 
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| existent Bpssnamevand computed pointer will be placed Into 
E directory. If the menu has any successor menus, they 
will be searched in the directory, TO (C MAC NOE yer 
created, new entries for them will be generated. 
After updating the directory and extracting needed 
Era frou it the image connands and information about possi- 
ble input options will be generated and stored in the menu’s 
records. 
See UPDATE a menu 
To process this function, the referenced menu has to 
be in the "menufile^. Essentially the further processing is 
the same as with the CREATE function. 
4. DELETE a menu 
Ehe nenu s entry is searched in the menu directory. 
Then the menu“s name will be deleted. A deleted menu may be 
a predecessor or successor of other menus. The user has to 


update any other menus that are affected by the deletion. 


MN MENU CHECKER 
There exists a program "MENU CHECKER” that allows to 
Mmerity any modification of the “menufile”. It has the fol- 
mowing functions: 
EEDIRECTORY: extract all entries from ‘the 
Menu File directory 
EEUU PUP OPTIONS: Extract all information about 
possible input options for a 
specific menu 


T IMAGE: Extract the image generating 
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conmands for a specific menu 


Eher information refer to the MENU CHECKER MANUAL. 
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eer EL D2 C 


MENU CHECKER MANUAL 


meee LNT RODUCTION 

The ilenu Checker allows to verify the contents of the 
Menu File. This program executes under the operating systen 
UNIX and exists as an executable file. The file ‘“mcheck.r’ 
stores its source code. The ilenu Checker will execute using 
the command: 


macheck 


eners the following functions to extract data fron 
“menuífile”: 
SD TZRECTORY: Bxtract all entries fron the 
denu File directory 
meee Ur OPTIONS: Extract all information about 
possible input options for a 
specific menu 
PLAGE: Extract the image generating 
commands for a specific menu 
The Menu Checker needs to have access to the  "nenufile^. 
Input is taken from the standard input device, output is 
directed to the standard output device. Non-printing ASCII 
characters of the image counands (e.g. Escape) will not ap- 


Meat in the output. 


me INPUT FORMAT 
The input to control the ilenu Checker consists of one or 


two parameters. An integer has to be ended with an ^,^" and 


72 





a 10-character menu name has to be ended with “€. The fol- 
loving xauple shows the input format and valid parameters. 
The input sequence is indicated by the nunbers in 
parentheses: 
[mes function code 

3 = directory 

6 - image 

Zm- input options 


WIN: menu name for functions 6,7 


example: 
6, extract image conmands 


startmenu @ from startmenu 
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Teese are the 


record nunber: 


1 


startmenu 21 statusO 
helpO 39  control10 
taskl 57 0000000000 
0000000000 O 0000000000 
0000000000 O 0000000000 
0000000000 O 6000000000 
0000000000 O 0000000000 
0000000000 O 0000000000 
0000000000 O 0000000000 
0000000000 O 0000000000 
0000000000 O 0000000000 
0000000000 0 0000000000 
0000000000 O 0000000000 
0000000000 O 0000000000 
0000000000 O 0000000000 
record number: 2 


Mere are no entries 


mecord number: 3 
Mere are no entries 


record number: 4 
Mere are no entries 


record nunber: 5 
Mere are no entries 


fe 


record nunber: O 
Mere are no entries 


mecord nunber: y 
There are no entries 


record nunber: 3 
here are no entries 


record number: 9 
here are no entries 


Eccord nunber: 10 
There are no entries 


record nunber: 11 


PM BE OUTPUTS OF THE 


DD OOO OO. OO DI) 


MENU 


directory records 


select? 

statusl 

0000000000 
0000000000 
0000000000 
0000000600 
0000000000 
0000000000 
0000000000 
0000000000 
0000000000 
0000000000 
0000000000 
0000000000 
0000000000 
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CHECKER 


33 
51 


O 


OSO O DOLO NO COL COP EDUC 





There are no entries 


record nunber: 12 
There are no entries 


record number: 13 
There are no entries 


record number: 14 
There are no entries 


record number: 15 
There are no entries 


record number: 16 
There are no entries 


record number: 17 
There are no entries 


record number: 18 
There are no entries 


record number: 19 
There are no entries 


record number: 20 
There are no entries 
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Image conmands: 


mmpoeadiCaNlrOlCdJd@ 
a02r01CdJd® 
a03r01CdJd@ 

mee rO2CPRr 1 

EU sa0lCaO05rC1CdJdO 
a06r01CdJd@ 
a07r01cdJde 

INS TO2CPR 2 
a07C&aO01Ca09rOlCdJdO 
alOr01CdJd@ 
allrOlCdJdC 
SEDrO2CSTAT 

myo ek adlCal3r01CdJd@ 
merOlCdJdf 

mor OlCd Jd 

Mr O2CCTRL 
memoeadiCal7rO1lCdJd@ 
al8r01CdJd@ 
al9r01CdJd@ 
apeorOZ2CSEL 

geo &a0]lCa21r01CdJd@ 
g@eerolCdJd@ 
meeeroicdJd@Ga22r02CHELP 
ECSaÓalOCa21rl10CcdJa8 
E rlOCdJdo 
EEU5CdJdÓa22rllCACK 
atlr12C 
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Input options for menu: 
Best record: 


ZI 


Startmenu 


mer of input options: i 
menu type: 1 


predecessor menu: 


mut option 1 


label: 


log conmand: 


button 
button 
button 
button 
action 


P 


Bert collumn: 


Bröht collunn: 


upper row: jl 
lower rov: 3 
code: 7 


But option 2 


label: 


ioe connmand: 


button 
button 
button 
button 
action 


D 


Met collunn: 


mont collunn: 


upper rov: 5 
lower row: 7 
code: 8 


But option 3 


label: 


A 
log command: 


0000000000 


PEB CRI] 


1 


5 


Bert CRI 2 


1 
6 


ACKNOWLEDG 


muon left collunn: 10 
ENUon riseht collunn: 15 
button upper row: 21 
ton lower row: 23 
action code: 9 

input option 4 

label: S 

meee command: STATUS 
button left collumn: l 
Meeton right collunn: 6 
Beton upper row: 9 
button lower row: 11 
Eton code: 10 

input option 5 

label: E 

Bop command: SELECT 
button left collunn: 1 
eton right collumn: 6 
button upper row: 17 
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ton lower row: 19 
Son code: 11 


input option 6 
label: H 

log conmand: HELP 
Beton left collunn: 


metron right collumn: 


button upper row: 21 
button lower row: 23 
action code: 12 


put option 7 
label: C 

m comnand: CONTROL 
Eton left collunn: 


Exon ripht collunn: 


Bon upper row: 13 
Button lower row: 15 
muon code: 13 
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BACKGROUND CONTROLLER PROGRA): 


—- 


t 
Ide deck eA e AA A kk e Ik kk ek kk ck he ec Ae he e kc e cc kk dc de ek deck dk ek Ak 
[E s dede sk dec de eee ee e ee ec ck e dece ec ke e e ce e e ee ecc e ecc Acc ke 


if 
f pec NGROU D EDEN TR OUTLET. ER 
if k 


JU AC ek CC ck dc kc ck oA HH HH HK HK HK KH KK HK KK A k HH KK HK KK KH KH KK kc kc kc kk ko 
NRARKKKKKAKKKK KA KK KH KK KH KH HH HK HH HH HK KK KH HH HH HK KR KK KK KH KH KK A KH KH KH AH A KA KR 


if This program is the resident part of the Background Monitor 

f running under RT-l1l. 

# Additional Background Tasks are stored on a memory image file. 

i When a call is made to such a Task, the RT-l1l overlay handler 
i reads it from the memory image file into the specified overlay 
iF region. 

# 

# The Background (BG) Controller has the following components: 

# - EXECUTIVE 

] Tnis is the Main Program of the BG Controller. It is called by 
i RT-11 to start the execution of the BC Monitor. 

# 

# - CONTROL I/O MANAGER 

if This program is called by either the EXECUTIVE or any Task 

if to process an operator input request from the operator 

F keyboard or the touch panel. 

if Control is returned after a requested input has been received 


from the operator. 


i - INPUT HANAGER 

if This program is called initially from the Executive and then 
# re-schedules itself periodically. 

# It processes all operator inputs from either the keyboard 

if 

if - CONTROL COMMAND MANAGER 

if This program processes all operator inputs not requested hy 
# aBC Task. 

i or the touch panel. 

# 

# = MENU MANAGER 

i This program is responsible for updating the display on the 
# operator“s console and for providing the other parts of the 
i BG Controller with sufficient information of any possible 

# inputs. 

f The required information will be stored on a separate 

# menu-file. 

# 

ir - LOG MANAGER 
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This program logs plain-English commands, numbers, and text 
on a requested output device. 


- PARAMETER BLOCK MANAGER 
This program updates the current Parameter Block, saves it 
on disc, and transfers it to the Foreground lonitor. 


- MESSAGE MANAGER 
This program manages the displaying and erasing of any 
operator input related messages or h/w warning messages. 


kk kc ck cc cC C AU c ck ck ok ck Co Ac ck ck oc A A A c x A C kc kc kc Acc A A x A AH A a a ae 


Jt kc sk sk e ve e hee ee e ec dk e ck dc de eee ec eek dock doe do ee ye ck e ek deck ek ek 
* 

OPEX ESCU TIVE 
* 
kkkkkkkkkkkkkkkkkkkkkškkkkkkkkkkškěkkkkkkkkkkkkkkkkšžkkkkkkkkkkkkkkkkkž 


Initial Release -- hn/23 Aug 79 
NAME: 

bgexec 
FUNCTION: 

Main program of the BG Controller 

The EXECUTIVE provides common routines for 

the EG Controller 

CALLING PROGRAM: 

Operating System RT-11 
NOTES: 

This program does not return control to the calling program. 
ALGORITH!: 

bgexec: 

open all files used by the Controller 

call all completion routines 

initialize HP Terminal Display 

Enjtjalize Carroll Touch Input System 

and save them for future use 
do forever 
{ get next task to call from CONTROL I/O EGR; 
call next task; 


} 


oP dP af tt oP af at af af st ae of oP ak a Sf at af ab at BaP ab ae iB a at aE ah at aE aE Bae a E r AE a PAE aE a ab EA GP at ar at ar LAP L K P Ae i aE AE at HE EP 


# parameter for menu table declarations 


efine INMAX 36 # max input options per menu 
# (including control inputs) 
efine OPTL 15 # storage length per input option 


jf ** TBLMAX = INMAX * OPTL 
} ** TBLMAX >= 2%iIRL 
efine CONMAX 7 # max number of permanent 
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lefine 
le£ine 


lefine 
lefine 


lefine 


lefine 
lefine 


lefine 


jefine 


jefine 
jefine 


define 
define 


define 
define 
define 
define 
define 
define 
define 


define 
define 


define 
define 


define 
define 


define 


define 
define 


TBLMAX 
IMAGEX 


SA TL 


TNL 


MSGL 


MSGWL 
ENDOFM 


ENDOFI 


ENDOFR 


word 
INN BU FL 
INTL 


INI 
WM 


control input 


540 f max length of menu table 
Do # index in nentbl where the 
# temporary image storage starts 
$ *&k IMAGEX = TBLMAX / 2 

40 r max word length of text input 
10 # max word length of task name 
56 f max word length of displayed message 
140 # word length of array msgw 
126 # code for end-of-message used in 

! array rsgw and rsgstk 
124 ? end-of-input code 

# used in menu records 
126 # end-of-record code to indicate 

# that a physical record is the last 

# one of a logical menu record. 


length of TT display buffer 


80 # 80 characters 

20 # input buffer length from TT 
# Input parameter for subroutine errmsg 

l # store input related message 

2 i store warning message 


# Logical unit number definitions 


LUSG 
BUHSTK 
LUMENU 
LUTTD 
LUTSYS 
LULOG 
OUT 


10 # Message-stack file 

11 # ilenu-stack file 

12 * Menu file 

13 # Touch Terminal Display 


14 i 
1 if 
6 if 


Touch Systen 
Command Log File 
test output 


# length of physical menu records 


URL 
MRBL 


INGREC 


DU) # word length of physical record 

540 © byte length of physical record 
# Max number of records used by one menu 

4 # Max number for image 

2 i Max number for input options 


BETREC 


# Stack 


BENSTX 
HGSTLI 


MGSTL2 


# Input 


DIMEN 
DSMEN 


size parameter 

20 # Max menu stack size 

120 # Max warning message 
# stack size 

60 # half message stack size 


|! MGSTL2 = MGSTLI / 2 


definitions for MENU MSR 
display initial start menu 
display status menu 


parameter 
l if 
2 if 
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| 

| 

iefine 
lefine 
iefine 
lefine 
lefine 
iefine 


lefine 
lefine 
lefine 
lefine 
lefine 


lefine 
define 
define 
define 
lefine 
lefine 
lefine 
define 
define 
define 
define 
define 
define 
define 


define 
define 
define 
define 


define 
define 
define 
define 
define 
define 


define 
define 
define 
define 
define 
define 


POEME 
DETEN 
DCHEN 
DTMEN 
ECHEN 
ETMEN 


# Input 


EINPUT 
EWARN 
DINPUT 
DVARN 
DWARNT 


con Dd Un & oO 


parameter 


9 

10 
11 
EZ 
13 


j 
il 
dt 
1 
il 


4 
1 


display select menu 
display help renu 
display control menu 
display task menu 
erase controller menu 
erase task menu 


definitions for MESSAGE MGR 

Erase input related msg 

Erase warning msg 

Display input rel. nsg 

Display warning msg from controller 
Display warning msg from task 


# Action codes from menu file 
must not be changed 


display new menu 
return text buffer 
return integer 
return character 
display previous menu 
PRINT CRTI 

PRINT CRT2 
ACKNOWLEDGE 

STATUS 

SELECT 

HELP 

CONTROL 

New BG Task 

change PB 


definitions for comnon 
Reverse button 


Start blinking 
Stop blinking 


i These 

ACODEM 1 if 
ACODET 2 it 
ACODEN 3 i} 
BEODEC 4 i? 
ACODEP 5 i 
ACODP1 7 if 
ACODP2 8 i! 
ACODAC 9 i} 
ACODST 10 # 
ACODSE Il i? 
ACODHP 12 il 
ESODCN 13 i 
ACODTK 14 i 
ACODPB 15 7 
f Input parameter 
# subroutine enhanc 
REV 1 it 
BEKBEG 2 it 
BLKEND 3 it 
REVEND 4 it 


Stop reverse button 


# Symbolic menu type definitions 
must not be changed 


# These 


START 
STATUS 
SELECT 
HELP 


CONTROL 


TASK 


OV U & WwW Ne 


if 
if 
if 
if 
if 
it 


Start menu being displayed 
Status menu being displayed 
Select menu 

Help menu 

Control menu 

BG Task menu 


f Symbolic indices for inopt word locations 


TEY 
PLAIN 
LX 

Er 

RX 

Ur 


l 


2 
/ 
3 
9 
l 


4 
1 


if 
# 
i 
i; 
ít 


keyboard entry code 
Plain-English command 
Lower left x-coordinate 
Lower left y-coordinate 
Upper rizht x-coordinate 
Upper right y-coordinate 
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efine 
efine 


efine 
efine 
efine 
efine 


efine 
efine 
lef ine 
efine 
lefine 
lefine 
lefine 
lefine 


lefine 
lefine 
lefine 
lefine 


lefine 
lefine 
define 


CODE Hi 
ANNEX 12 


# Action code 
# Additional info 


* Symbolic parameter values 


OR l 
OTOK 0 
DONE l 
NODONE 0 


# Symbolic names for flags and parameters 


KILL 

NOKILL 
MENU 

NOMENU 
NOACTN 
ACTION 
ACCEPT 
NOACPT 


Ore KH OO eb Or 


# 
if 
it 
if 
if 
j 


if 
if 


# Symbolic cursor 


MIX 2l 
MIY 2l 
M2X 21 
UZY 22 


i 
ir 
ir 


# 


killfl 

Kilifi 

input control 1/0 mer 
input control i/o mer 
input completion routines 
input input ngr 


inflag 

inflag 

coordinates 

Start x of first message 
Start y of first message 
Start x of second message 
Start y of second message 


ME CCI constant for initializing HP Touch System 


UNC 94 
STP J2 
CON 128 


i 
i 
jf 


O mp 


Uncover code 
Stop code 
Control code 


8 Y 


f Note: This must not be 0, an unused bit is used (=1) 
# If it were 0, it would be truncated as trailing NUL 


t The menu table is used in the following way: 


# = 


temporary storage for the image records 


f using the upper half of mentbl 
i? (start at mentbl(IMAGEX) ) 


he 


input options for permanent displayed “buttons’ 


f at the top, and input options for non-permanent 


# buttons’ 


# A program that accesses the input options, declares 
inopt(OPTL,INMAX) and equivalences it with 
f the common array mentbl. 

it integer*2 inopt(OPTL,INMAX); 

if equivalence (mentbl(1), inopt(1,1)); 


f an array 


# Menu Table declaration, number of input options 
common /blkl/mentbl(TBLMAX), nuropt; 


# Operator input storage declarations 
# text,number,character,pointer for text buffer 
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ormon /blk2/intext(TEXTL),innunb,inchar,intxtp; 


f Storage for menu-id’s to be erased or 
# to be displayed, initiated by the controller 
onnon /blk3/iecmen,icmenu; 


# Storage for menu-id’s to be erased or 
# to be displayed, initiated by a task 
common /blk4/ietmen,itmenu; 


# Storage for operator input related messages 
# and warning messages from tasks 

‚ogical*l inpusg(MSGL), iwmsg(HNSGL); 

common /blk5/inpmsg, iwrsg; 


# Storage for 
# warning messages from BG Controller, 
# read and write pointer for msgw 
Logical*l msgw(MSGWL); 
common /blk6/msgw,msgwpr,msgwpw; 


# Menu stack, stack pointer, number of saved menu stacks 
common /blk7/menstk(MENSTX), menstp, menstn; 


# Message stack, stack read and write pointer 
Im cal*i mspgstk(MGSTLI); 
common /b1k8/msgstk, msgstr, msgstw; 


i Menu record number of current menu’s predecessor, 
# menu record number of current or saved task menu , 
# Mame of active BG Task (if any), 
# and current menu’s type 

mon. /blk9/ipredn,icurtm,iactsk(TNL), mentyp; 


BET flag (l: Kill current BG Task) 
w UT flag (0: accept no input; l: accept input) 
mon /blkl0/killfl, inflag; 


# record numbers of initial menus known 

# to the BG Controller 

f l)Status, 2)Select, 3)lielp, 4)Control 5)Start 
sonmon /blkil/instat, insel, inhelp, incont, instrt; 


# number of warning messages to be displayed 
index to warning message stack half to write into 
first message stack record number on disc file 

# last message stack record number on disc file 
common /blkl2/msgent, ngstsw, mfrec, mlrec; 


# Input buffer from TT with pointer 


i flag for having done the input from operator 
Exon /blkl3/intt(INTTL), inttp, indone; 


£4 





# Index of permanent button (in inopt) 

i that is displayed in reverse node 
copmon /blkl4/ipenh; 

E ved cursor position 
common /blkl5/icursx, icursy; 


# logical units 
common /blkl7/lursg,lumstk,lumenu,luttd,lutsys,lulog; 
ata to communicate with the HP driver 
logical*l char(80); 
integer*2 endchl,endch2,flag,count; 
amu on /ttinbf/endchl,endch2,flag,count,char; 


eleve length for SYSF4 calls 
integer*2 qlen; 


integer*2 hpname(4); # RAD5O name of device iP 
data hpname/3RHP ,3R , JR JIR Fs 


integer*2 area(4); # area for itimer call 
integer*2 areal(4); # area for itimer call 
# storage for initializing commands to TT Display 
Heercal*] ttinit(8); 
MSC E£ ESC J ESC ) B 
Mr Etinit/07,27,69,27,74,27,41,66/; 


# storage for initializing commands to Touch Systen 
f A A ESC ESC Uncover-code Stop-code Control-code 
# Note -- the Control code has to be non-zero to 


it prevent it to be regarded as trailing NUL 
if The parity bit(odd) is set to l 
i The sequence is preceeded by two dummy characters 


Heeacal*)] hpinit(5); 
me A ESC ESC ~ 128 
8 3n1t/0/,65,65,27,27,UN C, STP,CON/; 


data luttd,lursg/LUTTD,LU?SG/; 
data lumstk, lumenu/LUMSTK, LUMENU/; 
data lulog/LULOG/; 

data lutsys/LUTSYS/; 


external bensgr; 
@ecernal bgemenn; 


external beinptc; 
External endfbk; 


# Call all completion routines with null input, 
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? requested by KT-11, no action vill be taken. 
call benenn(MOACTI'); 
call bersem(NOACTN) ; 
mu beinpn(i;OACi:!); 
mu endtrbk(i.0ACT:!); 


r provide sufficient queue length for 
ENSYSFA calls 

glen=32; 

isigset(glen); 


t Initialize common data, open files 


intxtp=1; text pointer 

nsgwprzl; 7 read pointer warning msg 

cSgwpwsl; # write ptr warning nsg 

menstp=0; # menu stack pointer 

ens tn=0; # number of renu stacks on disc 
msystr=1; # read ptr ressace stack 

mS;stw=1;5 # Write rtr ressage stack 

msgent=0; i mumber of displayed warning messages 
nsgtsw=1; # message stack half to write into 
mlrec=0; # no message stack on disc 

rfrec-0; # no message stack on disc 

inttp=1; "pointer for input buffer fron TT 
ipredn=Ú; ; nO predecessor renu 

icurtr=0; no task menu 

instrt=21; recorte number of initial start tenu 
HH fill in record numbers when renufile is done 
instat=27; Sial status renu 

insel=33; # initial select menu 

inhelp=39; # initial help menu 

incont=45; f initial control menu 

H+H 

ipenh=0; * no permanent button enhanced 
endchl-STP; # stop code for input from Touch Panel 
endch2=13; f stop code fcr input from keyboard (CR) 
count=0; # pointer for operator input buffer 


# open all files 
open(UNIT=lumsg,NAME="SS:ESGSTK.DAT’ , TYPE=" UNKNOWN“, 
LACCESS="DIRECT’ , FORM=" UNFORMATTED’ ,RECORDSIZE=15, 
2MAXREC=10) 
open(UNIT=lumstk,NAME="SS:MENSTK. DAT“ ,TYPE="UNKNOVNÍ, 
PACCESS= DIRECT“ , FORH=’UNFORMATTEDN” ,RECORDSIZE=10, 
2MAXREC=10) 
open (UNIT=lumenu,NAME="SS:NENUFL.DAT’ ,TYPE="OLD’, 
BIOGESS= "DIRECT , FORM="UNFORMATTED’” , RECORDSIZE=136, 
2MAXREC=500 ,READONLY) 
open(UNIT=lulog,NANE="SS:LOGCND.DAT’ , TYPE="UNKYGUN’ , 
LACCESS=" SEQUENTIAL’ , FORM=" FORMATTED’ ) 
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# lookup device HP on logical unit luttd 
i=lookup(luttd,hpname); 





# open input fron touch system 
10 read(luttd,77,END=10) endchl; 
mENEEormat(al); 


t initialize TT Display 


ihpsiwritw(4,ttinit,O,luttd); 


# schedule menu mgr to display initial start menu 
call itimer(0,0,0,1,area,DIMEN,bgmenn); 


k Initialize HP Touch System 
ihp=iwritw(4,hpinit,0,luttd); 


» start periodic scheduling of bginpm 
uu rttmer(0,0,0,1,areal,ACTIOh,bginpm); 


# get next task to call 


while(1>0) 

{ 

call bgcion(NOMENU); 

Ri = NOKILL; # Reset KILL flag 
if Ero (1,2), innumb; # branch to requested task call 
i | eall taski; 

i moto 100; 
ii fecal] task2; 
it 100 continue; 

} 

o close (UNIT=1lunsg) 

d close (UNIT=lumstk) 
jo close (UNIT=lumenu) 
A close (UNIT=1lulog) 

end 


3k ok c dee e ko ce de ck ck ck HK Ak c ck ck e e ccc A c ck cA cA A KK HT AK KK AK A N A AK 


[Lee e he de ke hk o zh KA HK HF AH HA KHK A de d ek det A KA A Ka KK Ka Ka Ka A a a 
i * 
i PROTO M ROUTINES 

it * 
[ck deck de ejt kde e ke dc e he e e e ek ek ek e ke hk de kde eh d e e eed ek de deo 
4 . . 
i The following common routines are used by more than one 


manager. 
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r eal ENDFBK 
j * 


jb ekkdek de d dek koe ee ok dede ede de e ed de dc ck dt de ede ee eek ede ek de dede deed 
# Initial release -- hn/4 Sept 79 


# NAUE: 
it endfbk (index) 
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# FUNCTION: 


i Stop any feedback initiated by an operator“s input 

# CALLING PROGRAM: 

ji PeecUITITVE -— the very first time (requested by RT=-11) 
i} RT-11 -- endfbk is scheduled usiný itimer 

PUT PARALIETEK: 

M index -- NOACTN: dummy call from EXECUTIVE 

Ü index of input “button” in array inopt 

# INFORMAL INPUT: 

# inopt -- contains input option information 

# INFORHAL OUTPUT: 

$ inflag -- set to ACCEPT 

# NOTES: 

i This routine is a completion routine and will not be 
i interrupted by any other BG progran 

feeeGORITHM: 

i call from EXECUTIVE return 

# mee hardcopy button’ reverse button image 

i Bem intlag to ACCEPT 


SPAR AP a a at BaP ap at at aE oP aR aE ok ae oP ip ae ak ab at ae at SP ae a ab at te aE aE ae EP ab ac ae at arab arab a at PGE EAB aE ab aE AEE ik iP it GP aT ae oP it at ae Hi ati 


subroutine endfbk(index); 


f t.enu Table declaration, number of input options 
common /blkl/mentb1(TBLNAX), numopt; 


EMITEL Flag (l: Kill current BG Task) 
# INPUT flag (0: accept no input; l: accept input) 
common /b1k10/killfl, inflag; 


# array containing all input options 
integer*2 inopt(OPTL,INMAX); 
EEIValence (mentbl(l), inopt(l1,1)); 


Ercrurn if call from EXECUTIVE 
if (index==NOACTN) return; 

# Get action code of input 
icode = inopt(CODE,index) ; 


# If hardcopy, reverse button 
if(icode == ACODPI | icode == ACODP2) 

call enhanc(index,REVEND); 
tag = ACCEPT; 


return; 
end 
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it * 
4 02 ENHANC 

i; * 
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i Initial release -- hn/4 Sept 79 
# NAME: 


j enhanc(index,icode) 

# FUNCTION: 

# Perform an enhancement function at the TT 
# CALLING PROGRAH: 

f Any program of BG Controller that wants an enhancement 
+ LNPUT PARAMETER: 

# icode -- specifies the enhancenent type 
it index -- pointer to button in array inopt 
INFORMAL INPUT: 

# inopt -- input option information 

# ALGORITHM: 

i Get coordinates of touch field 

i Give enhancement commands to TT 

{f return 

i 


WBHHRHHHEEE EE S db br 36 RE PAP iP ic $0 AP at SE at PE ab ar ae oP ar a ab are PB ae oe iP AP ae it of oP Pt ae a at at iB AP aE at Pak PAGE 


subroutine enhanc(index,icode); 


f Menu Table declaration, number of input options 
common /blkl/mentbl(TBLNAX), numopt; 


F KILL flag (l: Kill current BC Task) 
INPUT flag (0: accept no input; l: accept input) 
common /b1k10/ki11f1, inflag; 


common /blkl7/lumsg,lumstk,lumenu,luttd,lutsys,lulog; 


# Array containing all input option information 
integer*2 inopt (OPTL,INMAX); 
equivalence (mentbl(1), inopt(1,1)); 


# arrays containing the command strings to do 

# the requested enhancement 
iU cal*] icmdl(22), icrd2(12), icmd3(60); 

i ESC3 ESC&axxrxxC ESCI ESC&axxC ESCl -- set tabs 
data icmd1/07,27,51,27,38,97,00,00,114,00,00,67,27,49, 
2855797 ,00,00,67,27,49/; 


i ESC&dxx ESCI LELSC&dO -- one line of enhancement 
201 c522/07,36,27,38,100,00,27,73,27,38,100,64/; 


F ESCi ESCB -- back tab, down one row 
0 cmd3/07,36,27,105,27,66/; 
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# set enhancement typ 


if(icode == REV) # inverse video 
icnd2(6)=66 

It (icode == REVEND) ? inverse,half bright 
icnd2(6)=74 

2lse if(icode == BLEREC) ¢ blinking, half bright 
icmd2(6)273 

2lse if(icode == BLKEND) t inverse, half bright 


icmd2(6)=74; 


# set coordinates of button into command string 


ilx=inopt(LX,index); # left x 
irx=inopt (Ra, index) ; # right x 
Luy=inopt (UY, index); # upper y 
ily=inopt(LY,index); r lower y 


icmdl(7)=iuy/10+43; 
icmd1(8)=mod(iuy,10)+48; 
icmd1(10)=irx/10+48; 
icmdl(ll)suod(irx,10)448; 
icmdl(18)=ilx/10+48; 
icmdl(19)=mod(ilx,10)+48; 


Meuritw(ll,icndl,O,luttd); 
IIvritw(6,icmd2,0,1uttd); 
hile(iuy<ily) # while more lines to enhance 
( 
iuy=iuy+l; 
m-iwuritw(3,icmd3,0,luttd); 
ihp=iwritw(6,icmd2,0,luttd); 
} 


return; 
ond 


E c c ee ec ke dece c ck ok o de o ok ok e K KH e ck e ee e e ck dc o AK HK KH KH A KH AK KH AK AH A I 


i se 
} 0.3 Bere S G 
} * 
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} 

* Initial release -- hn/7 Sept 79 

t NAHE: 

f errmsg(mtyp,mlen,mbuff) 

F FUNCTION: 

f Store a message (input related or warning) in the temporary 

f message stack msgw or inpmsg and store an end-of-ressage 

f word 

f CALLING PROGRAM: 


- " 
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Ü Any program of the BG Controller that wants a message 


i to be displayed 

RUT PARAMETER: 

it mtyp = typ Of message: INM - input related message 

j Wi - warning message 

if mlen - length of message (words) 

il mbuff - array containing ASCII text 

# INFORMAL INPUT: 

# msgw - temp. storage for warning messages 

D msgwpr - read pointer for msgw 

# msgwpw - write pointer for msgw 

# INFORMAL OUTPUT: 

it Same as informal input 

i Additionally 

if inpmsg - text of input related message 

# NOTE: 

it An overflow of this temporary stack will not happen, its 
it length is sufficient for all messages generated by any 


i completion level execution 


# ALGORITHM: 


i while rore literals to store 

i copy a word of literals 

i increment the vrite pointer 

i if the write pointer > stack-leneth 
i set write pointer = l 

iF write an end-of-message word 

i increment write pointer 

, if write pointer > stack-length 

if set write pointer = l 


APE ae at at sf af oP GP tt ic dt a at ae a AE SEE TE TE SE E A JE AP GPA 36 JE SP P aba AE AE aE af a8 aE iP VC JP AE SP ab ie aE iB AE GB aE P P V aE iP ac ar EP 


subroutine errmnsg(mtyp,rlen,mbuff); 


# Storage for operator input related messages 
# and warning messages from tasks 

logical*l inpmsg(t:SGL), iwmsg(MSGL); 

cornon /blk5/inpmsg, iwnsg; 


# Storage for 
# warning messages from BG Controller, 
# read and write pointer for msgw 
logical*l msgw(HSGWL); 
common /blk6/msgw,msgwpr,msgwpw; 


Oeeical*! mbuff(t:SGL); 


# Store input related message 
if(mtyp == INM) 
{ 


for(i=l;i<=mlen;i=i+tl ) 
inpmsg(i) = nbuff (i); 7 copy text 
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mer(j=mlent+l; j<iiSGL; j=j+l) 


inpmsg(j) = “ °; 7 blank into rest 
} 
# store warning message 
‘lse 
{ 
for(i=l;i<=mlen;i=itl) 


{ 
msgw(msgwpw) = mbuff (i); # copy a word 
# increment write pointer 
if(msgwpw >= MSCWL) msgwpw = 1 
else msgwpw = msgwpw + L; 
} 
# write end-of-message word, increment pointer 
mspw(msgwpw) = ENDOVU; 
if(msgwpw >= NSGWL) msgwpw = 1 
else msgwpw = mscwpw + l; 


} 


return; 
nd 


] dee kk ok ke hc kk oe he e ke e e ze de ke che ke e he e e kde ke e d d ek d kc ek A A A RIK KK RK AK 
f 
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/ 
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f 

t Initial release -- hn/l4 novenber 79 

F NAME: 

} ESeunt (pl,p2,p3) 

t FUNCTION: 

, convert an ASCII coded integer into an integer 

t ALGORITHM: 

j p3=(p1-40)*30 + (p2-40) 

i 
AAA 


subroutine ascint(pl,p2,p3); 
meger*2 pl,p2,p3; 


p3=(pl-40)*30 + p2-40; 


return; 
end 
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# initial release -- hn/24 aug 79 

# NAME: 


if bgcion(iflag) 

# FUNCTION: 

i process an operator input request 

# CALLING PROGRANS: 

i} - any BC Task 

if - EXECUTIVE 

+ INPUT PARAMETER: 

i iflag -- 0: EXECUTIVE expects id of next task [NOMENU] 
i 1: A BG Task requests a menu to be displayed 
; (Menu record nunber in itmenu)  [HENU] 

# INFORMAL INPUT: 

j itmenu -- record number of any task menu to be 

if displayed 

f INFORMAL OUTPUT: 

if intext(TEXTL) -- one line of text or 

if EX Ep -= pointer for text buffer 

j innumb -= one integer digit or 

f inchar -- one ASCII character 


# ALGORITHM: 


F Beciom(iflapg): 
f clear input storage locations 
ij mtycall from a task 


Ye 


schedule the MENU MGR to display menu immediately 
loop until input ready 
j return input to caller 
i dt aE ip af sf EEE DE EE T DH Hd EE 


~~ 


subroutine bgciom(iflag) 
external bgmenn 

# Operator input storage declarations 
mon. /blk2/intext(TEXTL),innumb,inchar, intxtp; 


# indone, flag input done 
common /b1k13/intt(INTTL), inttp, indone; 


integer*2 area(4); # area for Ltimer call 


# Preset input storage locations 


innumb =]; 
inchar = ’#i#’; 
intext(1)="//"; 
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'or (i=23i<=TEXTL;i=i+l1) 
intext(i) =“ ^'; 
# preset pointer 


intxtp = 1; 


f Schedule MENU MGR immediately after l clock tick 
# if task menu is to be displayed 
if(iflag == MENU) 
call itimer(0,0,0,1,area,DTMEN,bgmenn); 


# Loop until an input is done 
# preset flag 
indone = NODONE; 
while(indone == NODCNE); 
return; 
end; 


JE c e de he he ke cA ke ee kk kc C A CI ek ce e c d e d A KK A RA AR ARA 
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* 
peer UT MANAGER 
} * 
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f 


f initial release -- hn/24 aug 79 

! NAME: 

bginpm(inp) 

f FUNCTION: 

! Processing of operator inputs from touch panel/keyboard 


+ CALLING PROGRAM: 
EXECUTIVE -- the very first time (requested by RT-11) 
RT-11 -- bginpm is scheduled by an input interrupt driver 
INPUT PARAMETER: 
inp -- O0 (NOACTN): Dummy call fron EXECUTIVE 
MINE Lnput from TT 
KEYINP: Input from keyboard 
INFORMAL INPUT: 
inopt -- contains input options and action codes 
intt  -- input buffer 
INFORMAL OUTPUT: 


intext(TEXTL) -- one line of text or 
innumb -- one integer number or 
Enchar == one ASCII character 
inflag == ACCEPT - accept input 


NOACPT - do not accept input 
NOTES: 
This routine is a completion routine and will not be 
interrupted by any other BG program. 
Sane applies to all routines called from bginpn. 
ALGORITHM: 
re-schedule its call (after .l seconds) 
convert and check input 
if input invalid 
schedule MESSAGE MGR for "Illegal Input“ and return 
else 
schedule MSG MGR to erase any input related message 
provide feedback to operator (reverse button) 
call LOG MGR to log command 
if a new menu is to be displayed 
schedule MENU MGR to display new menu 
else 
schedule NENU MGR to erase current menu in l second 
if input for task 
save input for CONTROL I/O NGR 
else 
call the CONTROL COMMAND LGR 
return 
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ubroutine bginpm(inp) 
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xternal bgmsgn; 
xternal bgmenm; 
xternal bginpm; 


$ Menu Table declaration, number of input options 
ommon /bikl/mentbl(TBLMAX), numopt; 


# Operator input storage declarations 
EDS /bIk2/intext(TEXTIL),innunb,inchar,intxtp; 


# Storage for menu-id's to be erased or 
# to be displayed, initiated by the controller 
ommon /b1k3/iecmen,icmenu; 


# Storage for menu-id’s to be erased or 
# to be displayed, initiated by a task 
‘common /b1k4/ietmen,itmenu; 


# Storage for operator input related messages 

# and warning messages from tasks 

# Menu stack, stack pointer, number of saved menu stacks 
common /blk7/menstk(MENSTX), menstp, menstn; 


# Menu record number of current menu’s predecessor, 
# menu record number of current or saved task menu , 
# name of active BG Task (if any), 
# and current menu’s type 

common /b1k9/ipredm,icurtm,iactsk(TNL), mentyp; 


Meer flag (l: Kill current BG Task) 
MEHNDUT flag (0: accept no input; l: accept input) 
mon /blklO/killfl, inflag; 


f input buffer, pointer, input-done flag 
‘common /blkl3/intt(INTTL), inttp, indone; 


common /ttinbf/endchl,endch2,flag,count,char; 
logical*l char(80); 

integer*2 endchl,endch2,flag,count; 

integer*2 inx,iny 


Storage for keyboard entry 
integer*2 inkey 


integer*2 areal(4); ý area for itimer to 
# schedule the MENU MGR 
integer*2 area2(4); # area for itimer to 


f schedule the MESSAGE ¡GR 
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nteger*2 area3(4); # area for itirer to 
# schedule itself 


# Array containing all input options 
nteger*2 inopt(OPTL, INMAX) ; 
malence (mentbl(l), inopt(1,1)); 


# Do not process first dummy call from EXECUTIVE 
f(inp == NOACTN) return; 

# Re-schedule itself 
ali itimer(0,0,0,6,area3,ACTION,„bginpm); 


# return if no input done 
f(count==0) return; 

# reset buffer pointer 
:ount=0; 

Do not accept any input if inflag set 
‚£(inflag == NOACPT) return; 


max = char(2); 

iny = char(3); 

a= l; 

inv£1g20; # flag set if valid coordinates found 

while(j<=numopt) 

{ 

i=j; # save index 

if(inx<=inopt (RX,j) & inx>=inopt(LX,j) 

& iny<=inopt(LY,j) & iny>=inopt (UY,j)) 

{ invflg=1; 


u 


break; } 
j=jtl; 
if (inv{lg==0) # if invalid input,schedule !!SG "GR 
{ 


Sel errmsg (INN,13,° INVALID INPUT’); 
call itimer(0,0,0,1,area2,DINPUT,bgmsgm); 
return; 


) 
call bglogm(i); # log command 
call feedbk(i); # provide feedback 


# interpret input action code 
icode = inopt(CODE,i); 


if(icode >= ACODPl 4 icode<=ACODCN) f processed by bgcmnónm 
call bgcmdn(i); * pass input 

return; 

lf(icode == ACODEM) # display new menu 
i 


icmenu = inopt(ANNEX,i); | 
call itimer(0,0,0,1,areal,mentyp,bgmenm); i£ schedule MENU MGR 





) 


lse # erase current display in 1 second 
¡| == TASK) $ current task menu 

E... = icurtn; # task menu id 

call itimer(0,0,1,0,areal,ETMEN,bgmenm); 
E. if(menstp>0) 

( 


iecmen = menstk(menstp); 
# Mark menu on top of stack to be erased 
menstk(menstp) = -menstk(menstp); 
call itimer(0,0,1,0,areal,ECMEN,bemenm); # schedule MENU MGR 
) 
) 


£(icode == ACODET) # if text input 
{ 
intext(intxtp) = inopt(ANNEX,i); 
intxtp = intxtptl; 
if (++++++ c/r lf or so) 
indone = DONE; 
return; 


) 


if(icode == ACODEN) r if integer 
{ 
innumb = inopt (ANNEX,1); 
indone = DONE; 
Beturn > 


) 


if(icode == ACODEC) # if character 
{ 
inchar = inopt (ANNEX,1); 
indone = DONE; 
return; 


} 


end 
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# Initial release -- hn/4 Sept 79 
i NAME: 





feedbk (index) 
FUNCTION: 

Provide feedback to an operator's input 
CALLING PROGRAI: 


bginpm 
ı INPUT PARALiETER: 
| index -- index for input in array inopt 


: INFORMAL INPUT: 
inopt -- array containing input information 
: INFORMAL OUTPUT: 
: inflag -- HOACPT - Do not accept any input 
' ALGORITHM: 
5 Provide accustic feedback 
Set inflag to NOACPT 
If (STATUS | SELECT | HELP | CONTROL | ACKNOWLEDGE) 
return; 
else 
reverse button 
schedule endfbk in .5 seconds to reverse button back 


4 


^w» Te bm Wy Ta he u Li 


if df E it ib HP HE at AP ae iE aE ib at ite aE ab aE at ib ae aE af ae ab aE aE ak GE at aE tc tea ae ic PAP PE ib at ib at at tt aE ab at aE ac it ab at E TE AP E P O PP V PL 
subroutine feedbk (index); 
2xternal endfbk; 


# Menu Table declaration, number of input options 
common /b1k1/mentbl1(TBLMAX), nunopt; 


EE ULL flag (1: Kill current BG Task) 
PUT flag (0: accept no input; l: accept input) 
common /b1k10/killfl, inflag; 


# Array containing input information 
integer*2 inopt(OPTL,INMAX); 
equivalence (mentb1(1), inopt(1,1)); 


tray for itimer call 
integer*2 area(4); 


# get action code of input 
icode = inopt (CODE, index); 


ft+++++ provide accustic feedback 


# Do not accept input during feedback period 
inflag = NOACPT; 


# If Status,Select,Help,Control,Acknowledge: return 
# else reverse button, schedule end of feedback 
if(icode < ACODAC) 
{ 
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hanc(index,REV); 
mer(0,0,0,30,area,index,endfbk); 
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Initial release -- hn/24 aug 79 
NAME: 

bgcmdm(inx) 
FUNCTION: 

Process operator inputs fron permanent displayed 
control 'buttons' and from nenus initiated by 
the BG Controller. 

CALLING PROGRAMM: 
Input anager (bginpn) 
PUT PARAMETER: 
inx - index in inopt, specifies kind of input 
INFORMAL INPUT: 
mentbl -- menu table with all input options 
mentyp -- type of current menu 
INFORMAL OUTPUT: 
killfl -- 1: current task is to be killed 
ALGORITHI1: 

If input from permanent button 

Meee PRINT CRT1/2: Initiate hardcopy; 
If ACKNOWLEDGE : Schedule MSG MGR to erase warning msg 
ME STATUS, HELP, 
A LECT, CONTROL: 
{ If control function is active, erase menu; 
If function not active, display its first menu; 
} 
} 


If input from a controller menu button 
+ LÉ SELECT=menu (start a new task) 
{ Erase SELECT menu; 
Set the KILL flag 
Return new task-id; 


} 
If CONTROL-menu: 
Call the PB NGR to process the input; 


} 
it at db AE ab af of at oP ab ab at iE E AE ak iP at ab ab ab ab ab eB AE AE AE AE TE AE AE AE E E P AE AE AF AE AE AE AE AE F EAE AE E AE 3 AE F AE AE Pa a at iP i C L L HE ic FF 


ubroutine bgcmdm(inx); 
xternal bgmsgn; 
xternal bgmenn; 
# Menu Table declaration, number of input options 


ommon /blkl/mentbl(TBLMAX), nunopt; 


# Operator input storage declarations 
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ommon /b1k2/intext(TEXTL) ,innumb,inchar,intxtp; 


# Storage for menu-id’s to be erased or 
# to be displayed, initiated by the controller 
ommon /b1k3/iecmen,icmenu; 


# Storage for menu-id’s to be erased or 
# to be displayed, initiated by a task 
'ommon /b1k4/ietmen,itmenu; 


Menu stack, stack pointer, number of saved menu stacks 
:ommon /b1x7/menstk(MENSTX), menstp, menstn; 


# Menu record number of current menu’s predecessor, 
f menu record number of current or saved task menu , 
# name of active EG Task (if anv), 

# and current menu’s type 


common /b1k9/ipredm,icurtin,iactsk(TNL), mentyp; 


# KILL flag (1: Kill current BG Task) 
# INPUT flag (0: accept no input; l: accept input) 
"uon /bIkIO/killfl, inflag; 


# record numbers of initial menus known 

# to the BG Controller 

Status, 2)Select, 3)Help, 4)Control 5)Start 
common /blkll/instat, insel, inhelp, incont, instrt; 


# arrays for itimer calls 
integer*2 areal(4); 
integer*2 area2(4); 


# array for input option 
integer*2 inopt(OPTL, INMAX) ; 
2guivalence (mentbl(1), inopt(l,1)); 


# save action code 
icode = inopt (CODE,inx); 


if(inx <= CONMAX) # permanent control buttons 
(if(icode == ACODP1) # hardcopy CRTI 
{ 
HHH initiate hardcopy 
Beturn;) 
else if(icode == ACODP2) + hardcopy CRT2 
( 


i44--7H---F initiate hardcopy 
return;) 





else if (icode == ACODAC) # ACKNOWLEDGE 
{ 


# Erase warning message 
call itimer(0,0,0,1,areal,EWARN,bgmsgm); 
return; } 


meee? STATUS ,SELECT „HELP,CONTROL: either 
# erase current menu or display initial one 


{ 
kode = icode-8; # kode and mentyp same meaning 
if(mentyp == kode) # erase menu, switch off function 
{ 
iecmen = menstk(menstp); # copy current menu-id 
# Mark menu on top of stack 
menstk(menstp) = -menstk(menstp); 
eae timer(0,0,0,1,area2,ECMEN,bgmenm); 
return; 
} 
else # display initial menu, switch on 
{ 
if (icode == ACODST) # status 
icmenu = instat 
else if(icode == ACODSE) select 
icmenu = insel 
else if(icode == ACODHP) # help 
icmenu = inhelp 
else if (icode == ACODCN) # control 
icmenu = incont; 
call itimer(0,0,0,1,area2,kode,bgmenr:) ; 
return; 
) 
) 
) 
# input from a controller menu 
Ilse if(icode == ACODTE) # new task 
{ 
innumb = inopt(ANNEX,inx) ; # task-id for EXECUTIVE 
Seer) = KILL; # kill any running task 


Zetmen = icurtm; 
call itimer(0,0,0,l,areal,ETMEN,bgmenm); # erase task menu 


# erase current select menu 
iecmen = menstk(menstp); 
menstk(menstp) = -menstk(menstp); 
EN itimer(0,0,0,1,area2,ECMEN,bgnenm) ; 
return; 


} 


lse # input for PB MGR 
{ 
call bgpbm(inx); 
return; 


} 
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Initial release -- hn/6 Sept 79 
NAME: 
bgmenn(itype) 
CALLING PROGRAM: 
EXECUTIVE -- the very first time (requested by RT-11) 
RT-11 -= bgmenm is to be scheduled using itimer call 
FUNCTION: 
Update the enhancements of some permanent “buttons’ 
Process other program’s request to display/erase a menu 
Read a menu from the menu file and update the TT display 
Do not allow any operator input while changing the display 
INPUT PARAMETER: 
itype -- specifies the kind of action requested by the 
scheduling progran 
NOACTN - dummy call from EXECUTIVE 
DIMEN - display initial start menu 
DSMEN - display status menu 
DSEMN - display select menu 
DHMEN - display help menu 
DCHEN - display control menu 
DIMEN - display BG Task menu 
ECMEN - erase a control menu 
ETMEN - erase a task menu 
INFORMAL INPUT: 
menstk - menu stack 
menstp - menu stack pointer 
icmenu - controller menu to be displayed 
iecmen - controller menu to be erased 
itmenu - task menu to be displayed 
ietmen - task menu to be erased 
mentyp - type of current menu 
mentbl - menu table for storage of input 
and image information 
INFORMAL OUTPUT: 
inflag -- ACCEPT: accept operator input 
NOTE: 
This routine is a completion routine and will not be 
interrupted by any other BG program 
ALGORITHM: 
if NOACTN return; 
set inflag to NOACPT 
me DLMEN 
Display any next menu 
if DSMEN,DSEMN,DHMEN , DCHUEN 
if displayed menu is of the same type 
replace the menu by the new one 
else save the old one and display the new one 
if DTMEN 
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Save new task menu id 
i if a task menu is being displayed 
replace it by the new one 
i I ECHEN 
if the menu is being displayed 
display the next saved nenu 
L ETMEN 
if the task menu is being displayed 
display any waiting menu 
set inflag to ACCEPT 
return 


BaP A AP dP UE TE HE AE Ae AE aF FAE AE AE AE FEAE AE AF AE AE AE AE AE AE AE AE AE AE AE AE AE AE AE AE AE AE TE AE AE E SEAE AE E E E E aE UE AE AE UE AE SE IE AAE AE UE HE EHBEHBE 


ıbroutine bgmenm(itype); 


# Menu Table declaration, number of input options 
j;nmmon /blkl/mentbl(TBLMAX), nunopt; 


# Storage for menu-id’s to be erased or 
# to be displayed, initiated by the controller 
ommon /blk3/iecmen,icmenu; 


# Storage for menu-id’s to be erased or 
# to be displayed, initiated by a task 
ommon /b1k4/ietmen,itmenu; 


# Menu stack, stack pointer, number of saved menu stacks 
ommon /bik7/menstk (MENSTX), menstp, menstn; 


# Menu record number of current menu’s predecessor, 
# menu record number of current or saved task menu , 
# name of active BG Task (if any), 
# and current menu’s type 

omnon /blk9/ipredm,icurtm,iactsk(TNL), mentyp; 


# KILL flag (l: Kill current RG Task) 
# INPUT flag (0: accept no input; l: accept input) 
onmon /blklO/killfl, inflag; 


ommon /blkll/instat,insel,inhelp,incont,instrt; 
# Array containing all input options 

nteger*2 inopt (OPTL,INMAX) ; 

quivalence (mentb1(1), inopt(1,1)); 


# No action on dummy call from EXECUTIVE 
f(itype == NOACTN) return; 
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# Do not allow any operator input 
flag = NOACPT 


# Display initial start menu 
:(itype == DINEN) 
licmenu = 0; # reset store 
well mdispl; # display any waiting menu or initial one 


} 


# Display Status,Select,Help,Control menu 
lse if(itype>=DSMEN & itype<=DCMEN) 


{ 
if (itype == mentyp) # menu of same type on TT 
{ 
call mepop; # erase current menu 
if (mepush(1) == OK) # push new menu 
call mdispl; # display new menu 
} 
else r menu of different type on TT 
if(mepush(1) == OK) Menu pushed on top of menu-stack 
call mdispl; Display the new menu 
} 
icmenu = 0; # reset store 
} 


# Display task menu 
lse if(itype == DTMEN) 


{ 

if(icurtm != itmenu) # if different task menu 
( 
icurtm = itmenu; # save wenu id 


if (mentyp==TASK | mentyp==START)# task menu is being displayed 
# or initial start menu 
call mdispl; ? display new task menu 
} 
itmenu = 0; # reset store 


} 


# Erase controller menu 
lse if(itype == ECMEN) 
{ 


# get absolute menu id on top of menu stack 
1 = menstk(menstp); 
af (i<0) i=-i; 


if(iecmen == i) # menu is being displayed 
{ 
call mepop; # pop menu on top of stack 
call mdispl; # display next menu 
} 

iecmen = 0; # reset store 

} 


# Erase task menu 
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lige if (itype == ETMEN) 


{ 
if(icurtm == ietmen) # menu to be erased is saved or 
# being displayed 
{ 
icurtm = 0; # erase menu store 
if(mentyp == TASK) # old task menu being displayed 
call mdispl; # display new task menu 
) 
ietmen = 0; # reset store 
) 


# Allow operator input 
nflag = ACCEPT; 


eturn; 
nd 
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Initial release -- hn/6 Sept 79 
NAME : 
mepush(i) 
CALLING PROGRATi: 
bgmenn 
FUNCTION: 
Push a new controller menu id on top of the menu stack, 
Save any full stacks on disc 
INPUT PARAMETER: 
i -- dummy parameter (needed for function call) 
INFORMAL INPUT: 
menstk - menu stack 
menstp - menu stack pointer 
menstn - number of saved stacks on disc 
icmenu - menu-id to push 
BENCTION OUTPUT: 
OK - new menu-id on top of menu stack 
NOTOK - a full stack could not be written onto disc 
new menu-id is not on top of menu 
INFORMAL OUTPUT: 
menstp - menu stack pointer 
ALGORITHM: 
if menu-stack full 
increment stack counter 
write stack onto disc 
if write not possible 
decrement stack counter 
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initiate display of a warning message 
return NOTOK 
else reset stack pointer 
else increment stack pointer 
store menu-id on stack 
return OK 


EAE AEE E Ae AE aP APAE UE dE AEAF AE Ae aE AE AE AE aR AAE AE aP te AE AE E EHE HE HB EE E EE EHE E44 


inction mepush(i); 


xternal bgnsgn 


# Storage for menu-id’s to be erased or 
# to be displayed, initiated by the controller 
ammon /blk3/iecmen,icmenu; 


# Menu stack, stack pointer, number of saved menu stacks 
sammon /b1k7/menstk(MENSTX), menstp, menstn; 


Array for itimer call 
ateger*2 area(4); 
ateger*2 lumstk; 
ata lumstk/LUMSTK/; 


f (menstp»sMENSTX) # menu stack full 
( 
menstn = menstn+l; # incr counter for saved stacks 


E rite stack onto disc, if error goto 9999 
write(lumstk’menstn,ERR=9999) menstk 


menstp = 1; # reset stack pointer 
} 

lse # no stack overflow 
menstp = menstp+l; # incr stack pointer 


# Store menu-id on stack 
enstk(menstp) = icmenu; 
epush = OK; 
eturn; 


# If write could not be done properly 
999 menstn = menstn-1; reset counter 


# Initiate display of warning message 
call errmsg(4M,27, “MENU STACK WRITE IMPOSSIBLE’); 
call itimer(0,0,0,1,area,DWARN,bgnsgm); 
mepush = NOTOK; 
eturn; 
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Initial release -- hn/6 Sept 79 
NAME: 


mepop 
FUNCTION: 
Pop the menu on top of the stack, 


read any menu stacks saved on disc 
INFORMAL INPUT: 


nenstk - menu stack 
menstp =~- menu stack pointer 


menstn - nunber of saved stacks on disc 
INFORMAL OUTPUT: 


menstp - menu stack pointer 
ALGORITHM: 


decrement stack pointer 
while(stack in memory or on disc) 
while (stack pointer > Q) 
if(menu-id positiv) return 
else decrement stack pointer 
if(stack saved on disc) 
read stack 
if(improper read) 
initiate warning message 
return 
decrement stack counter 


reset stack pointer to top of stack 
Bperurn 


AEE A a dE EA BA dB ab aR AB aE AE dE EB aR aE SB aE DAE aE aR ak aR aR ab aE HH EREE Ba PAE BaP a i a a it 


ubroutine mepop; 


xternal bgmsgm; 


# Menu stack, stack pointer, number of saved menu stacks 
common /blk7/menstk(MENSTX), menstp, menstn; 


common /blkl17/lumsg,lunstk,lumenu,luttd,lutsys,lulog; 


meacrcay for itimer call 
inteper*2 area(4); 
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# decrement stack pointer 
-(menstp>0) menstp = menstp-1; 


# while there is a stack in memory or on disc 
uile(menstp>0 | menstn>0) 


# while a stack in memory 
while(menstp>0) 
{ 
if (menstk(menstp)>0) return # next menu found 
else menstp = menstp-1; 
} 


# if stack saved on disc 
if (menstn>0) 


{ 

read(lumstk’menstn,ERR=9999) menstk 
menstn = menstn-l; # update stack counter 
menstp = MENSTX; # update stack pointer 
} 


} 


eturn; # return, stack is empty 


# If read could not be done properly 
# Initiate display of warning message 
call errmsg(4M,26, “MENU STACK READ IMPOSSIBLE’); 
call itímer(0,0,0,1,area,DWARN,bgnsgn); 
eturn; 
nd 
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Initial release -- hn/7 Sept 79 
NAME: 
mdispl 
CALLING PROGRAM: 
bgnenn 
FUNCTION: 
Get the next menu to be displayed 
a) a controller menu on stack 
b) a task menu 
c) initial start menu 
Read and display the menu image 
Read and store the input option information 
Update the enhancement of certain permanent buttons 
Generate error messages if read/write impossible 
INFORMAL INPUT: 





ff menstk - controller menu stack 
i} icurtm - task menu 

i instrt — initial start menu 

i menstp - menu stack pointer 
#INFORMAL CUTPUT: 


i Inopt - array containing input option information 
ALGORITHN: 


i If controller menu on stack 
{ get menu-id 
i else if task menu 
i get menu-id 
] else get initial start menu-id 
j while(image records on disc) 
j read a record 
if read error, display message, return 
display image of the record 
if write error, display message, return 
read all input option records 
if read eror, display message, return 
upcate enhancenent of certain permanent buttons 
Return 


IIS ESA EE AEE EEA EE EE a 
ibroutine mdispl; 
xternal bgnsgm; 


7 Menu stack, stack pointer, number of saved menu stacks 
ommon /b1k7/menstk(MENSTX), menstp, menstn; 


# Menu record number of current menu’s predecessor, 
# menu record number of current or saved task menu , 
i name of active BG Task (if any), 
f and current menu’s type 

ohon. /b1k9/ipredn,icurtn,iactsk(TNL), mentyp; 


don /b1k11/instat,insel,inhelp,incont,instrt; 
f number of warning messages to be displayed 
# index to warning message stack half to write into 
# first message stack record number on disc file 


# last message stack record number on disc file 
onnon /blkl2/msgcnt, mgstsw, mfrec, mlrec; 


array for itimer call 
nteger*2 area(4); 


get menu-id to be displayed 


PE? 





i(menstp > 6) # controller-menu 
irec = menstk(menstp) 


ese if(icurtm != 0) + task menu 
rer = icurtm 
ase irec = instrt; t Initial start menu 


# reset offset for disc records 
i= 0; 


# preset flag 
fone = NODONE; 


# while any image records on disc, read and display then 
nile(idone != CONE & i<=)) 
{ 
# read one image record 
ht rinage(irecti,iflag,idone); 


# if read error, display ressage and return 
if(iflag == NOTOK) 
{ 
call errmsg (WM,20, “MENU READ IMPOSSIBLE’); 
call itimer(0,0,0,1,area,DVARU,bgmsgn); 
return; 
) 
# increment record offset 
m= i+); 


# display one image record 
call dimage(iflag); 


# if write error, display vessage and return 
if(iflag == NOTOK) 
{ 
Mer esa (011,23, “MENU DISPLAY IMPOSSIBLE”); 
call itimer(0,0,0,1,area,DWARN,bgmsgn); 
return; 


) 


# read all input option information 
r inopt(irec,iflag); 
# if read error, display message and return 
-(iflag == NOTOK) 
{ 
call errmsg(UM,20,^MENU READ IMPOSSIBLE’); 
call itimer(0,0,0,1,area,DUARN,bgmsgm); 
perurn;j; 
) 
f Update any enhancements of control buttons 
ill updenh; 
irn; 
id 
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Initial release -- hn/7 Sept 79 
: NAME : 
rimage(menrec,iflag,idone) 
CALLING PROGRAM: 
mdispl 
FUNCTION: 
read a specified menu-record into nentbl 
if end-of-image , set flag idone 
mu PARAMETER: 
menrec - record number to read 
OUTPUT PARAHETER: 
iflag - NOTOK: Read error 
CK : read ok 
idone - DONE : end-of-image recognized 
NODONE: no end-of-irage 
INFORMAL OUTPUT: 
mentbl - menu image starting at mentbl(IMAGEX) 
ALGORITHM: 
read image record 
if read ok 
if last image record 
set flag to DONE 
return flag OK 
else return flag NOTOK 


tk th it iF iP $F at HP it P nd AE PAE af at at at Hab HE ac at at oP it aE at at at at at at at GF af RH AP SP at HP at aE GP Pat SP it ae at BE Pa BAP HE aE at at at it? 
ubroutine rimage(menrec,iflag,idone); 


# Menu Table declaration, number of input options 
ommon /blkl/mentbl(TBLMAX), nunmopt; 


ommon /blk17/lumsg,lumstk,lumenu, luttd,lutsys, lulog; 


# array for temporary image Storage 
ogical*l image (TBLYAX); 
quivalence (mentbl(IMAGEX), image(l)); 


rec=menrec; 
# read image record 
read (lumenu’irec,ERR=9999) (image(i),i=1,540) 


# if last record reac, set done flag 


f(image(540) == ENDOFR) # last word in record = code 
idone = DONE; 
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return read ok 
ilag = OE; 
gturn, 


# return KOTOK, if read error 
499 iflag = UOTOK; 
turn; 
ed 


redeo ek e e ee ee ee v ecce ee e he e ke e dece e dee ee ee ck eee e doe k ede ek e deeds 
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Initial release -- hn/10 Sept 79 
NAME: 
dimage(iflag) 
CALLING PPOCRAH: 
mdispl 
FONCTION: 
Display the menu image stored in image 
OUTPUT PARAMETER: 
iflag - OK: No write error 
NOTOK: Write error 
INFORMAL INPUT: 
image - image of menu display 
image starts at mentbl(IMAGEX) 
ALGORITIHI:: 
while there are more image conmands 
write commands to display 
if write error, return LOTOK 
return OK 


ASAS SAA 
ubroutine dimage(iflag); 


# Menu Table declaration, number of input options 
ommon /b1k1/mentbl1(TBLMAX), numopt; 


onmon /blkl7/lumsg,lumstk,lumenu,luttd,lutsys,lulog; 
# output buffer with pointer 

@mecal*| buff(02); 

Meeger*2 buffx; 
# array containing the menu image 

Ogical*l image(TBLL:AX); 

quivalence (mentbl(IMAGEX), image(1)); 


# command string to position cursor to start 
# of input related message field after the new 


1er 5 





# image has been transferred to the TT Display 
}gical*l cmd(10); 
mame 70/7 ,2/7,38,97,50,49,114,50,49,67/; 


# preset ending index used in loop 
jdend = 0; 

# send always “$” at beginning of command string 
Ef£(1)=36; buff (2)=36; 


# do forever, check if more commands stored 
# if any and less than display buffer size, 
# write the commands 
nile(1>0) 
{ 
# preset begin index and end index for checks 
indbeg indend+l; 
indend = indend+60; 
buffx=3; # first entry for command string 


# check all entries in image between indbeg and indend 
for(index=indbeg; index<=indend; index=index+l) 
í 
buff(buffx)=image (index); 
buffx=buffx+tl; 
# if end-of-image or end-of-physical-record 
# write rest of image 
if (index>TBLMAX | image(index)==ENDOFTI) 
{ 
buffx=buffx-1l; 
buff (buffx)=36; # “S” 
nwords=buffx/2; 
ihp=iwritw(nwords,buff,0,luttd); 
# return flag write OK 


# position cursor after image commands done 
map=iwritw(5,cmd,0,luttd); 

iflag = OK; 

return; 


2 


# write image 
Enp=iwritw(3l,buff,0,luttd); 
} 


Ger format (80al); 


# write error if here 
999 iflag = NOTOK; 
'eturn; 
nd 


116 








J| ees kc he vk d ke khe e ke fe ke khe ehe ke ck hee ek ek khe e e de he e dee ede ARK KK RK KKK KKK 
i * 
i ds. 39 rer N OP T 

i * 
| eee sk eek sk ke e hee ke ke ee ke e ck he ehe ke e he deck ek ee dee e e o de dk ede dede de A de dede dee ek 


d 
} 


¡Initial release --hn/10 Sept 79 
i NAME: 
j rinopt(menrec,iflag) 
¡CALLING PROGRAI!: 
j mdispl 
; FUNCTION: 
| read all input option information 
| read menu parameter and save them 
INPUT PARAMETER: 
menrec - number of first record of the menu 
OUTPUT PARAHETER: 
iflag - OK: No read error 
NOTOK: read error 
INFORMAL OUTPUT: 
Hentbl — input option information 
nunopt — number of input options 
ipredm - record number of predecessor menu 
mentyp - type of this menu 
ALGORITHM: 
set initial index in mentbl for read 
while there are any records to read 
mead record 
Hererror, return NOTOK 
if last record, break 
store parameter 
Return OK 


NH 
ibroutine rinopt(menrec,iflag); 


# Menu Table declaration, number of input options 
onmon /blkl/mentbl(TBLMAX), nunopt; 


i Menu record number of current menu’s predecessor, 
# menu record number of current or saved task menu , 
# name of active BG Task (if any), 
# and current menu’s type 

mmon /blk9/ipredu,icurtm,iactsk(TNL), mentyp; 


# record numbers of initial menus known 
i to the BC Controller 





EuStatus, 2)5elect, 3)Help, 4)Control 5)Start 
mon /bikll/instat, insel, inhelp, incont, instrt; 


eomon /blkl7/luusg,lunstk,lumenu,luttd,lutsys,lulog; 


IE rTay to store input option information 
iteger*2 inopt(OPTL,INMAX); 
Nau ence (mentbl(l),inopt(l1,1)); 


iteger*2 pl,p2,p3; 


# Compute initial read index in mentbl 
i(menrec == instrt) Zeit initial start menu 
# with control button info 
index=l 
lse index=OPTL*COU.(AX-+1; ES centres after Control DUBLON 


f first record number after last one for input 
j= menrec+ILGREC+OPTREC; 


‚indexHiRL-l; # last index for read into mentbl 

¡lec=menrec+IMGREC; # first record with input options 
read(lumenu irec,ERR=9999) (mentbl (ind) ,ind=index,k) 

.dex=indextiiRL ; 

RL*2; last entry in mentbl 

'ec=menrec+IMGREC+l; # next record 
read(lumenu’irec,ERR=9999) (mentbl (ind) ,ind=index,k) 


# all information is read, save menu parameters 
Jzupopt(l,30); 
122802567 p2-710d(p3,256); call ascint(pl,p2,p3); 
)redn-p3; # menu id of predecessor menu 


)-inopt(2, 36); 
756; p2=mod(p3,256); call ascint(pl,p2,p3); 
entypzp3; # menu type 


3=inopt (3,36); 

1288/7256; p2-mod(p3,256); call ascint(pl,p2,p3); 
Inopt=p3; # number of input options 

t (mentyp!-START) # not initial start menu 
nunopt=nunopt+CONMAX; # add permanent buttons 


convert all ASCII coded integer into integer 
# (coordinates,action codes, annex if necessary) 
BSenrec == instrt) | start menu 
istart-l 
lse istart=CONMAX+1; 


sae —nunopt ; 


Or(i=istart; i<=iend; i=i+1) # for all inp options 


{ 
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| 


for (k= BEr<=11; k=k+l) # for all coord & act codes 
{ 
p3=inopt(k,i); pl=p3/256; p2=mod(p3,256); 
mb ascint(pl,p2,p3); 
mopt(x,i)=p3; 
a 
if (p3==ACODEM | p3==ACODEN |p3==ACODTK) # convert annex 
{ 
p3=inopt(ANNEX,i); pl=p3/256; p2=nod(p3, 256); 
ma) ascint(pl,p2,p3); 
inopt (ANNEX,i)=p3; 
) 


# return OK 
jlag = OK; 
yturn; 


# if here, process read error 
"99 iflag = NOTOk; 
"turn; 
id 
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Initial release -- hn/11 Sept 79 
NALE: 
updenh 
CALLING PROGRAM: 
ndispl 
FUNCTION: 
Update the enhancement of certain permanent 
control buttons 
INFORMAL INPUT: 
ipenh -- specifies any permanent button being reversed 
( index of button input in inopt) 
hentyp -- typ of new menu 
INFORMAL OUTPUT: 
ipenh -- 0: new menu is a task menu 
x: specifies the permanent button that is reversed 
(index in inopt) 
ALGORITHM: 
if there is an enhancement 
if old menu-typ = new menu-typ , return 
else reverse old enhancement 
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i if no new enhancement is to be made , return 
j else reverse new enhancement 
i return 


bab ab ab at af af af RRA H ERE EHHH oP ab oP oP a SB iB at oP af at at at PAP Ab aE a ak HH HEBES HE HEEHE 
ibroutine updenh 


# Menu Table declaration, number of input options 
;mmon /blkl/mentbl(TBLifAX), nunopt; 


# Menu record number of current menu’s predecessor, 
# menu record number of current or saved task menu 
# name of active BG Task (if any), 
à and current menu’s type 

opmon /blk9/ipredn,icurtr,iactsk(T?L), mentyp; 


> 


# Index of permanent button (in inopt) 
# that is displayed in reverse mode 
common /b1k14/ipenh; 


# array containing input option information 
integer*2 inopt(OPTL,INIAX); 
eguivalence (mentbl(1), inopt(1,1)); 


# if an enhancement exists, check if it has to 
# be reversed back 
if(ipenh != 0) 


# menu type of current menu 
kode = inopt (CODE,ipenh)-8; 


if(mentyp == kode) retum # no menu typ change 
else 

call enhanc(ipenh,REVEND); 
) 


AE new menu is task or initial menu, clear ipenh 
# else enhance new button 
if(mentyp == TASK | mentyp == START) 


ipenh = 0 
else 
{ 
kode = mentyp+8; # type converted into action code 
for(i=1; i<=CONMAX; i=i+1) + search action code to 
# determine index in inopt 
{ 
j=i; # save index 
if (inopt(CODE,i) == kode) break; 
? 
call enhauc(j,REV); # reverse button 
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# save reversed button index 
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' Initial release -- hn/16 november 79 
ETEME: 
bgpbn(inx) 
E CALLING PROGRAM: 
! bscmdn 
k FUNCTION: 
} update the Parameter Block (PB) 

save the PB on disc when update is done 


else 
store parameter in Pb 


1 

f sends the PB to the Foreground Job 

INPUT PARAMETER: 

inx — pointer to selected input option in inopt 
INFORMAL INPUT: 

inopt - info about possible input 

+ ALGORITHM: 

f get annex from inopt to get new parameter 
i if (done) 

save PB on disc 

send PB to Foreground Job 

; 


AAA AAA 


subroutine bgpbm(inx) ; 


common /blkl/mentbl(TBLMAX), nuropt; 
integer*2 inopt(OPTL,INMAX); 
aquivalence (mentb1(1),inopt(1,1)); 
HH modify PE 


return; 
ond 


n 
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KAKKKKKKKRKKKAKKKKAHKK KK KK KK KK KK KK KK KK KH A KR KK KH AK KH AK I A I A A KH A KK A KK A KH A A A KA A KR 
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£ Initial release -- hn/l6 novenber 79 
r NAME: 

i bglogm(index) 

© CALLING PROGRAM: 

f bginpm 

k FUNCTION: 
ř log the operator“s input action on a disc file 
k INPUT PARAMETER: 


f index -- index to input in array inopt 
ENNFORMAL INPUT: 

f inopt - contains info about possible inputs 
t ALGORITHM: 

i get plain English command from inopt 

j write command to disc file 'inplog.dat' on 
i logical unit LULOG 

f 


aE ab at aE aE at a tt ab a at a BE a at at at at af ak at at at a at at a aE ac ab at a ab ae UE ar dE de ar de dE UE AE TE AP AE ak ab a it ob de it db SE ab a at ar ab it 
subroutine bglogm(index) ; 

common /b1k1/mentbl(TBLMAX), numopt; 

common /b1k17/lumsg,lumstk, lumenu,luttd,lutsys,lulog; 

integer*2 inopt(OPTL,INMAX); 


squivalence (mentbl(1),inopt(1l,1)); 


rite(lulog,100) (inopt(i,index) ,i=2,6); 
100 format (5a2); 


return; 
ond 
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Initial release -- hn/ll Sept 79 


NAME: 


bgmsgm(itype) 
CALLING PROGRAN: 
EXECUTIVE -- the very first time (requested by RT-11) 


RT-11 
FUNCTION: 


-—- bgnsgm is to be scheduled using itimer call 


Update the enhancement of the ACKNOWLEDGE button 
Process requests to erase/display ressages (operator input 
related or warning messages) initiated by the BG Controller 
or any EG Task 
Erase/display messages on the TT Display 
Save message stacks on disc/ read msg stacks from disc 
INPUT PARAMETER: 


itype -- 


NOACTN 
EINPUT 
EWARN 
DINPUT 
DWARN 
DWARNT 


INFORMAL INPUT: 


msgstk - 
msgstr - 
mspstw - 
inpmsp - 
iwnsg - 
ms gw - 
mnsgwpr -= 
msgent -= 


specifies the action requested by the 
scheduling program 

- dummy call fron executive 

- Erase input related ressage 

- Erase warning message 

- Display input related message 

- Display warning message from Controller 
- Display warning message from Task 


warning message stack 

read pointer for stack 

write pointer for stack 

input related message 

warning message initiated by a BG Task 
warning message initiated by EG Controller 
read pointer for msgw 

counter for warning messages 


mgstsw - points to msg stack half to write into 
INFORMAL OUTPUT: 
same as informal input 


BOTE: 


This is a completion routine and will not be 
interrupted by any other EC program. 


ALGORITHIí: 


if NOACTN 


, return 


BER ELNPUT 


erase 
if EWARN 


message field, return 


display any waiting warning message 
update ACKNOWLEDGE enhancement 
return 

I DINPUT 
display message, return 

if DWARN or DWARNT 
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display warning message or save it on stack 
i update ACKNOWLEDGE enhancement 
Zerurn 


m. 


bie de th ak E an aa ada a ddd ddd ddd ka ad A aaa ada aaa dada EEE GE BABB ES 
ibroutine bemsgm(itype); 
)mon /blklO/killfl,inflag; 


i no action on dummy call from EXECUTIVE 
E(itype == NOACTN) return; 


f accept no input when displaying 
nflag=NOACPT; 


# Erase input related message 
f(itype == EINPUT) 
{ 
call einnsg; 


} 


# Erase warning message 
‘Ise if(itype == EWARI’) 
{ 
call ewmsg; 


} 


# Display input related message 
lse if(itype == LINPUT) 
{ 
call einnsg; 
call dinnsp; 


} 


# Display warning message 
alse if(itype == DWARN | itype == DWARNT) 
{ 
call dwnsg(itype); 
Y 
/ 
# accept input 
inf lag=ACCEPT; 


turn; 
ond 
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} 
! Initial release -- hn/12 Sept 79 
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1 N EE: 
einusg 
CALLING PROGRA: 
bgmsgm 
FUNCTION: 
Erase any displayed operator input related 
message on the display 
BEGORITHLM: 
position display cursor 
clear line (ESC K) 


APE AE AE E tf st a E ab oP ak GP iP ZE AE SEE E 30 at aE aE af at E ZE AE ab at Pat ad id aE aE aE aka aa ah a THE SH HH HHBHHHHBH 
ubroutine einmsg; 
ormon /blkl7/lumsg,lumstk,lunmenu,luttd,lutsys,lulog; 

# command string to erase input related nessage 
ogical*l erasei(12); 

EESESESC &a2l1r2 1I CESCK 
I395rasei/07,27,38,97,50,49,114,50,49,67,27,75/; 


hp=iwritw(6,erasei,0,luttd); 


return; 
nd 


Ee he kk Ae e eA e e e Ao A HK ck ee c ok ck ck ck ok KH A KH AK X AA 


$ * 
} p bev SG 
i * 


Ld de de he e kk ek dee ok oe e ck ek doe e oc eek de o deo e e dee dede ee x 
} 
f Initial release -- hn/l2 Sept 79 


NAME: 

i ewnsg 

f CALLING PROGRAM: 

f bgmsgm 

f FUNCTION: 

; Erase the display of a warning message 

f Display any waiting warning message 

i Update the enhancement of ACKNOWLEDGE button 
f INFORMAL INPUT: 

; msgstk - message stack 

f nsgstr - read pointer for stack 

i msgstw - write pointer for stack 

f msgcnt - counter for warning messages 

f mgstsw - stack switch, indicating into which stack half 
} a new message has to be stored 

; inopt -= operator input option information 


? INFORMAL OUTPUT: 





same as informal input 
ALGORITHM: 
if no message on stack 
erase message display 
return 
while there is message text , do 
read pointer in upper half of stack 
get next characters 
if ENDOFM, break loop 
else 
if no stack saved on disc 
} move lower half to upper half of stack 
: else 
Tead stack fron disc into upper half 
update pointer to stacks on disc 


update message counter 


F if no messages on stack 

f stop blinking ACKNOWLEDGE button 
f display message 

$ return 


PEE EEE EE HE EE 
subroutine ewmsg 


i Menu Table declaration, number of input options 
common /b1k1/mentbl(TBLMAX), nunopt; 


f liessage stack, stack read and write pointer 
logical*l msgestk(l!GSTL1); 
common /blk&/msgstk, msgstr, msgstw; 


# number of warning messages to be displayed 

* index to warning message stack half to write into 

f first message stack record number on disc file 

# last message stack record number on disc file 
common /blkl2/msgcnt, mgstsw, mfrec, mlrec; 


common /blkl7/lunsg,lumstk,lumenu,luttd,lutsys,lulog; 


# temporary storage of message text 
Mepical*l mbuff(MSGL); 


# array to structure the message stack 
# into upper and lower half 

POgical*l mstk(MGSTL2, 2); 

equivalence (msgstk(1), mstk(1,1)); 


array containing input option information 


integer*2 inopt(OPTL,INMAX); 
equivalence (mentbl(1l),inopt(1,1)); 
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# command string to erase warning message 
Baical*l erasew(12); 
Be r25eu/07,27,38,97,50,50,114,50,49,67,27,75/5; 


# if only 1 warning message exists, erase it 
“(msgent <= 1) 
{ 
ihp=iwritw(6,erasew,0,luttd); 
msgcnt = 0; 
return; 


} 


# copy a warning message from msg stack into msg buffer 
# if needed msg stack is saved on disc, read it and 
* continue to copy. 
buffx=2; mbuff(1)=36; t S7 
hile(mbuffx <= HSGL) 
{ 
# if msg on stack in memory 
if (msgstr <= MGSTL2) 
{ 
mbuff(mbuffx) = msgstk(msgstr); 
msgstr = msgstr+l; 
# stop if message complete 
if (mbuff (mbuffx) == ENDOFM) break; 
mbuffx=mbuffxtl; 
} 


# warning message either in lower half of message stack 
# or there is a msg-stack saved on disc 
else 


EE no stack on disc 
# copy lower stack half into upper half 
if(mfrec == 0) 
{ 
for(isl; i«-!GSTL2;  i-i-1) 
mstk(i,l) = mstk(i,2); 
mgstsw = 1; 


) 
# if stack on disc, read it into 
# upper stack half 
else 
{ 
read(lumsg’mf rec, ERR=9959) (mstk(i,1),1=1,60) 
if(mfrec == mlrec) 
{ 
nfrec = 0; 
nlrec = 0; 
} 
else 
mfrec = mfrectl; 
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} 


# reset read pointer in msg stack 
msgstr = L; 


} 


# update counter for warning messages 
# if no more messages waiting, stop blinking 
# of ACKNOWLEDGE button 

sgcnt 7 usgcnt-l; 

f(msgent < 2) 


{ 
msgstr = l; 
msgstw = l; 
mgstsw = 1l; 
for(i=l; i<=CONMAX; i=i+1) 
{ 
if(inopt(CODE,i) == ACCDAC) 
{ 
a eb enhanc(i,BLKEND); 
break; 
) 
) 
) 


f write message, clear rest of line 
hp=iwritw(6,erasew,0,luttd); 


buff (mbuffx)=0; # ASCII NUL 
words=mbuffx/2; # number of words 
hp=iwritw(nwords,mbuff,0,luttd); 

eturn; 


| if read error 
999 continue 
Brurn; 
nd 
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Initial release -- hn/26 Sept 79 
NAME: 
dinnsg 
CALLING PROGRAM: 
bgmsgm 
FUNCTION: 
display new input related nessage 
NOTE: 
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{ the first character in a message 
j will not be displayed 
SINFORMAL INPUT: 
i inpmsg - input related message 
inopt -~= info about operator input options 
i; ALGORITHM: 
i position cursor 
display new message 


HIE E TE EE APE E TE TE AE AE AE AE EAE AAE AE AAE AE AEIR AE TETE AE TE iB a A AE AE ab a aE AE TE AAE AAE A AE A AAE TE E AER ESA 
ibroutine dinnsg; 


# Menu Table declaration, number of input options 
jmmon /bikl/mentb1(TBLMAX), numopr; 


~gical*l inpmsg(MSGL), iwmse(HSGL); 
»mmon /blk5/inpnsg,iwusg; 


Inmon /b1k17/lumsg, lumstk, lumenu, luttd, lutsys,lulog; 


# array containing input option info 
nteger*2 inopt(OPTL,INMAX); 
quivalence (mentbl(1), inopt(1,1)); 
ogical*l sutext(2); 
ata swtext/36,15/; 


# write the message, any old one has already been 
# erased by einmsg, the cursor is positioned 
hp=iwritw(l,swtext,0,luttd); 
ip=iwritw(2/,inpmsg,0,luttd); 
eturn; 
nd 
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Initial release -- hn/26 Sept 79 
NAME: 
dwnsg(itype) 
CALLING PROGRAM: 
bgms pm 
FUNCTION: 


130 





f display a warning message or 


1 store it on stack 

} update enhancement of ACKNOWLEDGE button 
IENPUT PARALIETER: 

j itype - specifies the message originator 


DWARN  - msg from BG Controller 
DWARNT - msg fron BC Task 
(INFORMAL INPUT: 
| msgstk - message stack 
| nsgstr - read pointer for stack 
| msgstw = write pointer for stack 
| msgent = counter for warning messages 
mgstsw = stack switch, indicates into which half of 
the stack (upper,lower) a new message has to 
be stored 
msgw - warning message from BG Controller 
mspwpr - read pointer for msgw 
iwnsg - warning message from BG Task 
inopt = input option information 
INFORMAL OUTPUT: 
same as informal input 
ALGORITHM; 
Store message fron either controller or task into buffer 
If no message being displayed 
display new message 
reset stack pointer 


| 


else 
copy mesage from buffer to stack 
if stack overflow 
write stack onto disc 
update pointers and flags 
increment message counter 
if two messages present, start blinking of ACKNOWLEDGE 
return 


EPR EIA LISA 
ubroutine dwmsg(itype); 


# Menu Table declaration, number of input options 
ommon /blkl/mentbl(TBLMAX), numopt; 


# Storage for operator input related messages 
# and warning messages from tasks 

Ogical*l inpmsg(MSGL), iwmsg(NSCL); 

ommon /blk5/inpmsg, iwnsg; 


# Storage for 
# warning messages fron BG Controller, 
# read and write pointer for msgw 
Ogical*l msgw(MSGWL) ; 
ommon /blk6/mspw,msgwpr,msgwpw; 


pot 





# Message stack, stack read and write pointer 
cical*l msgstk(MGSTL1); 
amon /b1k8/msgstk, msgstr, msgstw; 


# number of warning messages to be displayed 

# index to warning message stack half to write into 

# first message stack record number on disc file 

f last message stack record number on disc file 
amon /blkl2/msgcnt, mgstsw, mfrec, mlrec; 


mon /bikl7/lumsg,lumstk,lumenu,luttd,lutsys,lulog; 


# temporary storage for messages 
gical*l mbuff(4SGL) ; 


# array to structure the message stack 
# into upper and lower half 

gical*l mstk(NGSTL2, 2); 

uivalence (msgstk(1), mstk(1,1)); 


# array containing input option information 
teger*2 inopt (OPTL,INNAX) ; 
uivalence (mentbl(1), inopt(l,1)); 


# array containing command string to position 
# cursor and clear line 

gical*l displw(12); 

5 16/07,27,38,97,50,50,114,50,49,67,27,75/; 


# message generated by 3G Controller 
(itype == DWARN) 


mbuff(l)s36; # “$” 
nbuff(2)215; # Control O 
for(i=3; i<=liSGL; i=i+l) 
{ 
mbuff(i) = msgw(msgwpr); 
msgwpr = msgwprtl; 
if(msgwpr » HSGUL) msgwpr=l; 


max = i; # save index 
if (mbuff(i) == ENDOFM) break; 
) 
) 
i message generated by BG Task 
lse 
{ 


mbuff(1)=36; # °$” 

mbuff(2)=15; # Control OÖ 

for(i=3; i<=NSGL; i=i+1) 
{ 


max = i; # save index 
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mbuff(i) = iwmsg(i); 


if(mbuff(i) == ENDOFN) break; 

) 
) 

* display new message if it is the first one 

(msgent == 0) 
{ 
ihp=iwritw(6,displw,0,luttd); 
nwords=max/2; 
mbuff(max)=0; # ASCII NUL 


ihp=iwritw(nwords,mbuff,0,luttd); 
msgstr = 1; 


msgstw = L; 
mgstsw = 1; 
) 
copy message to stack (upper or lower half) 
se 
{ 


for(mbuffx=1; mbuffx<=max; mbuffx=mbuffxtl) 
{ 
# no overflow of message half 
if (msgstw <= HGSTL2) 
{ 
mstk(msgstw,mgstsw) = mbuff (mbuffx); 
msgstw = msgstw+l; 


) 
else 
( 
# if upper switch to lower half of stack 
if(mgstsw == 1) 
mestsw = 2 
else 


# upper and lower half overflown 
"E te lower half onto disc 


{ 
if(mfrec == 0) 
{ 
mf rec 
mirec 
} 
else 
mlrec = nlrec+l; 
write(lumsg’mlrec, ERR=9999) (mstk(i,2),i=1,60) 
) 
msgstw = 2; 
mstk(l,mgstsw)=mbuff (mbuffx) ; 


l 
l 


we we 


# update message counter and enhancement 
Sent = msecnt+i; 
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“(msgent == 2) 


{ 
for(i=l; i<=CONNAN; i=i-+l) 
{ 
if (inopt(CODE,i) == ACODAC) 
{ 
call enhanc(i,BLKBEG); 
break; 
) 
} 
} 
eturn; 


orite error 
999 continue 
eeurn; 
nd 
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MENU EDITOR PROGRAM 


IARERRARERKAR KE RARA AR RARKLRE RARE RA RARA RARA RA RARA RARA RNA dt 
i, * 
i NEL N-U ED 
i * 
|kákkkkákákkíkíkkížíííkíkákkíkkííkíkíkákákíkíkkíkkkákixkkkíkíkkíkkákák 
i 
;Initial release -- hn/l Oct 79 
i NAME: 
j menued 
1 FUNCTION: 
create new menus 
update existing menus 
delete menus 
print menu~id’s of all menus stored on the menu file 
CALLING PROGRAM: 
RT-11 
INPUT: 
text file with all needed information having the format 
described below. 
OUTPUT: 
= text file or 
- new menu on disc or 
- file with all menu id’s 
MITES : 
This is an off-line program. 
It interprets a standard input in certain format. 
Each © (end of text), or “,“ (end of integer), or 
| (end of line) may be followed by comments. 
Input may be files or any input device. Each line 
of input has to be in the following forrats 
( line number ): 


(1) : function 


2: create - create a new menu 

3: update - update an existing menu 
l: delete - delete an existing file 
8: initm - create initial start menu 


The following formats will depend on the functions. 


for all input files: 
(1) : function code 


for delete, create, update 
(2) : menu-id 


for create,update 
(3) : predecessor menu-id 
(4) : menu-type 
6) : menu title 
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i (6) 
j 


* 
* 


nunber of question/text blocks 


for each question/text block: 


Start-block code 


(120) 


: number of responses 
location of buttons 
meze of buttons 


text 


for each response: 
start-response code 


(127) 


label (l characters) 
plain-English command for logging (l0 characters) 
: action code 


annex 


HHHHHHHHHHHEHBE EE EET ae HB aE aE aE aE it EAE AE aE ac at aE aE Pap EE ab hE BR HERE EHE E EES 


efine 
efine 
efine 
efine 
efine 


efine 
efine 
efine 


efine 


efine 
efine 
efine 


efine 
efine 


efine 
efine 
efine 


efine 
efine 


efine 
efine 
efine 


EUR 9 if 
LUW 6 i 
LUMR 7 ir 
LUMW 8 # 
EUTTD 4 i 
NDREC 20 i 
NEREC 4 if 
BOREC 2 i 


for read 

for write 

for menu file read 
for menu file write 
display 


unit 
unit 
unit 
unit 
unit 


logical 
logical 
logical 
logical 
logical 


nunber of directory records 
max 4 records for image 
max 2 records for input options 


f function codes from input file 


BREDM 0 i 

i, 
EDPDETE | i 
MSEBALE 2 i 
BEDATE 3 if 

it 
SUCCM 4 ř 
ENITM 8 it 


# code for button 


LOCA l it 
LOCB 2 jé 
LOCC 3 it 


find a menu id in directory 
( id in ipredm) 
delete menu id in 
insert a new menu 
find a menu id in 
(id in renuid) 
find menuid of successor menu 
create the initial menu 


directory 
id in directory 
directory 


locations 

button row below the text 
button row beside text 
button collumn beside text 


jf symbolic names for fixed margins 


LEFTM 12 

LMARG 20 if 
# right margins 
RMARGA 75 

RMARGB 75 

RMARGC 75 


# left margin of menu field 


lower margin of menu field 


for button rows/collumns 

# button row below text 

# button row beside text 

# button collumn beside text 
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fine DELTA 2 # free rows/coll between buttons 
fame IMAGEL 2432 # image storage length (bytes) 
fame INOPTL 15 f word length for each input option 
fine INMAX 37 # max number of input options 
fine IBUFFL 80 # input buffer length 
fine ENDCFI 8316 # code for end-of-input 
fine ENDOFR 32332 # code for end-of-record 
fine TEXT l5 # code for text mode 
fine BUTT 14 # code for line mode 
fine NOCH 0 # no change of mode 
fine SBLOCK 126 f code for start-text/question-block 
Ne SRESP 127 # code for start-response-block 
# symbolic input parameter 
fine DONE l # done 
fame NODONE 0 f not yet done 
# ASCII character 
fine ESC 27 # ESC 
mne CONTRO 15 # CONTROL O 
fine CONTRN 14 i CONTROL N 
# input buffer 
teger*2 ibuff(IBUFFL); 
# storage for menu-id 
iteger*2 menuid(10); 
# storage for menu-id to lookup in directory 
iteger*2 ipredm(10); 
# storage for image 
iteger*2 image(IIAGEL); 
# storage for input options 
iteger*2 inopt (INOPTL,INMAX); 
# pointer 
iteger*2 imagep # next free entry in image 
iteger*2 inoptp # next free entry in inopt 
# next line to write on display 
iteger*2 lincnt; 
# display mode 
nteger*2 mode; 
+ function code 
nteger*2 ifunct; 
nteger*2 idold(10); # menuid to find in directory 
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4 


:eger*2 idnew(10); # menuid to store in directory 


# menu parameter 


teger*2 nblock; f number of text/question blocks 
teger*2 nbutt; # number of buttons for a block 

teger*2 iloc; # location of buttons in a block 
teger*2 isize; # size of buttons 

teger*2 mentyp; # menu type 

teger*2 ipredr; # record number of predecessor menu 
teger*2 ispace; # space lines between text blocks 
teger*2 irec,param,ichar; 

teger*2 mr(21,50),ptr; # temporary storage for menuid,rec # 
teger*2 rowcur; # row the cursor is in 

teger*2 highr; # highest record number created 

teger*2 ibseq(/); # sequence of drawing permanent buttons 


# entries are index to inopt 


teger insave,irsave,iwsave; # file descriptor from open 


anon 
rmon 
mmon 
naon 
nmon 
mmon 
mmon 
mnon 
moon 
con 
nnon 
nnon 
nmon 
nmon 
mmon 
rion 


/blkl/image,imagep,inopt,inoptp; 
Emik2/lincnt; 
/b1k3/mode; 
/b1k4/menuid,ipredn; 
/blk5/ibuff; 

Pokey nblock; 

apy /nbutt,iloc,isize; 
/b1k8/mentyp,ipredr; 
/b1k9/ispace; 
/b1k10/rowcur; 
/blkll/irsave,iwsave; 
/b1k12/idold,idnew; 
eoikl3/mr,ptr; 
/b1k14/highr; 

fork 15/ifunct; 
/blkl6/ibseq; 


bseq(1)71; 
bseq (2)=2; 
bseg(3)=4; 
bseq(4)=7; 
bseq(5)=5; 
bseq (6)=6; 
bseq(7)=3; 


# specify logical unit numbers and 

# open menufiles for read/write 

E the old menu file “menufile“ is read and 

# it is written onto a temporary menu file “menuout”. 

# after all is done, “menuout” is copied to “menufile”. 


E setfil(LUMR,'/menufile °); 
111 setfil(LUMW,’menuout ”); 
EN Setfil(LUR,'infile *); 
‚save=LUNR; 
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save=LUllW; 


# preset inopt,image,menuid,ipredn,ichar,mr 
# imagep,inoptp,lincnt,ispace 
re (4=1;i<=INMAX;i=i+1) 


or(j=1;j<=INOPTL;j=j+1) 
Mmnopt(j,1)=12336; 07. 0: 


:r(i=1;i<=IMAGEL ;i=i+l) 
image(i)=8240; PSP 10: 


‘r(i=l;i<=10;i=i+1) 


renuid(i)=8240; # SP.°0’ 
predn(i)=8240; sb. 02 


har=8250; f SP.“ Q” 

:r=l; 

r(i=1;i<=50;i=i+1) 

{ 

for(j=1;j<=21;j=j+l) 
mr(j,i)=0; 


} 


incnt=0; 
igptp=1; 
nagep=l; 
space=0; 
owcur=0; 


read function code 
ead(LUR,1000) ifunct; 
000 format(i3); 


# create initial menu 
f(ifunct == INITM) 
call initm 


lse 


{ 


# delete,create,update 
# save menu-id 
BESd(LUR,100) ibuff; 
ED format í(50al); 


i-1; 
while(i<=10 & ibuff(i)!-ichar) 
( menuid(i)=ibuff(i); i=i+l; ? 


# delete 
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meaifunmct == DELETE) 
call delete 


else 
{ 
# create,update 
uncet == CREATE | ifunct == UPDATE) 
{ 
read(LUR,100) ibuff; 


i=l; 

while(i<=10 & ibuff(i)!=ichar) 
£ ipredn(i)=ibuff(i); i=i+l;) 

param=PREDN; 

call setmen(param,irec); 


ipredr=irec; 

read menu type 
read(LUR,1000) mentyp; 
call setmen(ifunct,irec); 
call update(irec); 


} 


7 close all files 
Wind LUMR; 
wind LULl!W; 
wind LUR; 


1d 


tX c ee ee e ee e e ehe e e eee e e dec hec he e ck ke ce chc e de dc c ke ke e dk ke ke e e A KA ÁS 


SSESTM EN 


Uk e eee ek he he he fece ck he dc e deck e ecc eee d e ek ehe e dk e I KH KH KH A KK AK A LK A a 


Initial release -- hn/2 Oct 79 
NAME: 
setmen(iflag,irec) 
CALLING PRCGRAM: 
menued 
FUNCTION: 
prepare store for new and old menuid 


and set menuid into mr 
INPUT PARAHETER: 
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f plas -- 

j SUCCM find successor menu in directory 
J CREATE insert a menu id in directory 

: UPDATE - find a menu id in directory 


j PREDI — find predecessor menu id in directory 
¡OUTPUT PARAMETER: 

i irec -- index of menuid in mr 

{INFORMAL INPUT: 

| menuid - menu id to create or update 

BEoredp - menu id to find in directory 

I ALGORITHM: 

| reset temporary id stores 

| copy id's 


| save old and new menuid in mr, return index 


‘GRAB AE AE AEA eH it ab at af at ait tt at AE AE SE TETE SEAE TE ar UE TE AE ETE TE AE TESE AE AE e AESF E at BB aE AE AE EP PP at ab ae aE EB it ab at ib a tt aE ot HP dh 


ıbroutine setmen(iflag,irec); 


iteger*2 iflag,irec; 
iteger*2 pl,p2; 

mmon /b1k4/menuid,ipredn; 
iteger*2 menuid(10); 
ateger*2 ipredm(10); 


# store for old and new menuid 
oumon /blkl2/idold,idnev; 
ateger*2 idold(10); 
nteger*2 idnew(10); 


# preset temporary storage for id’s 
or(i=l; i<=10; i=i+l) 
{ 
idold(i)=8240; SOS 
idnew(i)=8240; 
} 


# store old and new menuid’s 
f(iflag==SUCCM | iflag==PREDM) 
{ 
for(i=1;i<=10;i=i+1) 
{ 
idold(i)=ipredm(i); 
idnew(i)=ipredm(i); 
) 
) 
lse 
( 
for(i=1;í<=10;i=i+1) 
{ 
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idold(i)=menuid(i); 
idnew(i)=menuid(i); 


} 


save renuid in nr 
MS avenr(irec); 


curn; 
1 


k sk c e he e e e ehe hee e e eee e e e e e Ate e e de e e e dee e dex ee e e eA e ee dee ee Ae e Gk A A A AX 


Cake teeta. R 


Kk e e he he e e e he he e e hee e he he e dee de e eA dee e e ehe ehe Ae ee de de e ee dee e dece A ee Ade kk 


Initial release -- hn/6 november 79 
NEE: 
cpfile 
FUNCTION: 
copy the file menuout (up-to-date) to nenufile 


dE it AE HE af SP GB GB AB AE aE E EA AE ZE E ODA aE oP ze E AE AE E APE ze AE ak a at at at at E deo E A A aE aE ak Pa a PP aE ar BE F 
broutine cpfile; 
teger*2 rbuff(544); 


NEcofbck; # close and open files 
| set exit for END-OF-FILE condition 
(ierror(104)!20) goto 77717; 
Me(1>0) do until done 
{ 
read(LUMR,100) (rbuff (i) ,i=1,544); 
Merte(LUMW,100) (rbuff(i),i=1,542); 
mo format (544al); 
} 


E return; 
d 


Jes e eee e e e ee ee ze de e e e de ehe he ek ee e e e e e e he he de ehe he ee che che ee ee eek ck eA e I Ak 


CONE E W D 


de Xe ye s de e e se e e e e e e se e se se de e de e e he he e fe he he he he e e e he he e e e he he ee he c e e he e eee eh A A 


Initial release -- hn/31 october 79 
NAME: 
cof fwd 
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FUNCTION: 


# close renufile and renuout 

jf open these files 

j read from menufile, write to nenuout 
i 

1ALGORITHM: 

i rewind files 

i connect logical unit number and file 


i 
d aE AP EA KE AE E EAP AE AEAEE TEREA Ae AAE AEE de dede EAP EA at ato ak aE aE Ea AE AE AE EE Eiee ae HH E HERE EE EE A 
ebroutine coffwd; 


ommon /blkll/irsave,ivsave; 
jteger irsave,iwsave; 


wind LUIiR; 
Wind LUIW; 
ssave=LUER; iwsave=LU'W; 


all setfil(LUMR,’menufile '); 
EN setfil(LUlVW,'renuout ^); 


emurn; 
ad 


JA CK AA A e e e e A o A A KH A A A x AA A A kc kc kk X 


COF B C-K 


Ak Ak o eA ede A kA AC cA cA A A ke KH A KK KH KR A KH A KH AK A KH A X 


Initial release -- hn/3l october 79 
NAHE: 
cofbck 
FUNCTION: 
close menufile & menuout 
open these files, read from menuout, write to nenufile 


ALGORITHM: 
rewind files 
connect logical unit and filenames 
HH E ab a AB aE ZE AE AE AE E AE EE ZE APE EEE KEE še AE AE AE E AE TE AE AE AE AE AE AE AE TETE TETE AE AEAEE TETE TETERE EE EAE Te AEAEE 


ubroutine cofbck; 


Enon /blkll/irsave,ivwsave; 
nteger irsave,iwsave; 


ewind LUMR; 
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rewind LUIW; 
isave=LUliR; iwsave=LUMW; 


M ctti1(LUř'R, "menuout ^) 


eli setfil(LUHW,“menufile “); 


een 5 
ad 


LEKKKKKAKKKKKKAKKKKKKKKKKERKKERKKKAKAKKKKKKEKEREKKKKKKRRKERKKKKEKRKEAKEKK 
| DUI T M 

| 

UA e AC c co A c UA A KH KK e c KH A K A AK A A AK A A A A a 


Initial release -- hn/12 oct 79 
NAME: 
atm 
FUNCTION: 
generate menu records for the initial menu with permanent 
buttons and store them behind the directory records. 
CALLING PROGRAM: 
menued 


bab af af at af aE ab aE at aE aE aE ab ab at a Gf aE dE ae ab a ac Ba ad ib it AP aE ab a a ik Pat aE aE A EE a ak a ae aE aa aE ED EE 
ibroutine initm; 


mmon /blkl/image,imagep,inopt,inoptp; 

mmon /b1k4/menuid,ipredn; 

mmon /b1k14/highr; 

mmon /blkl6/ibseg; 

iteger*2 highr; # first record number of last menu 
iteger*2 ibseq(/); 

iteger*2 image(IMAGEL) ,imagep,inopt (INOPTL,INMAX) ,inoptp; 
iteger*2 menuid(10), ipredm(10); 


Mmeper*2 pl,p2,p3,p4,ir,ic,irec,label(4,/); 
Meser*2 11(6),12(6),13(6),14(6),15(6),16(6),17(6); 
iteger*2 rbuff(544); 

Mivalence (rbuf£(1), inopt(1,1)); 


ita label(1,1)/80/; # P 
ita label(2,1)/82/; * R 
Wa 13bel(3,1)/32/; # SP 
EB 13bel1(4,1)/49/; # 1 


EB 1abel(1,2)/80/; f P 
ata label(2,2)/82/; FR 
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ta 


ta 
ta 
ta 


ta 
ta 
ta 
ta 


ta 
ta 
ta 


ita 
ita 
ita 
ita 


ita 
ita 
ita 
ata 


ata 
ata 
ata 
ata 
ata 
ata 


ata 
ata 
ata 
ata 
ata 
ata 


ata 
ata 
ata 
ata 
lata 
lata 


lata 
lata 
lata 
lata 
lata 


pe) (3,2)/32/; 
label(4,2)/50/; 


pel (1,3) /65/; 
1abe1(2,3)/67/; 
mape 1 (3,3)/75/; 
wpe 1(4,3) /32/; 


mapel (1,4) /83/; 
label (2,4)/84/; 
label(3,4)/65/; 
label(4,4)/84/; 


label(1,5)/83/; 
label(2,5)/59/; 
mipel(3,5)/76/; 
label1(4,5)/32/; 


pel (!,6)/72/; 
mapel(2,6)/69/; 
label1(3,6)/76/; 
label(4,6)/20/; 


label(1,7)/67/; 
label(2,7)/84/; 
mapel(3,/7)/82/; 
label(4,7)/76/; 


mo / p '/; 
ZO PR’ /; 
MR) / IN /; 
MG) / T /; 
m5) / CE /; 
mo) /°T1’/; 


mob) / r '/; 
MO) ERAS; 
Me) / IN /; 
MO TS; 
m) / CR /; 
m6) /°T2°/; 


mi) / "a '/; 
E?) /'AC'/; 
3) /*KN'/; 
mu 75/*ovu'/; 
I5) /'LE'^/; 
E06) /*DG* /; 


EO/'s '/; 
EM25)/'sT'/; 
E3) / AT’ /; 
a4) /°US"/; 
EQO»/' '/; 


ir 
4 


i 
if 
4 


i 


/ 
Y 
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Ml 4(6)/* '/; 


See l)/’e °/; 
EN 5(2)/'SE'/; 
INI 5 (3) /'LE'/; 
Em 5(4)/'CcT'/; 
MIS (SII "/; 
EmU5(6/' '/; 


ENNU6(1)/'h '/; 
memmeo(2)/° HE’ /; 
dta 16(3)/°LP’/; 
gap l6(4)/° ^*/; 
EEU6(5)/' "/; 
cta 16(6)/“ °/; 


10mm 7(1)/"c '/; 
mmm (2)/'co*/; 
ESO 
IEEE (4) /*'RO'/; 
ita 1/(5)/'L ^/; 
EN 7(6)/*! °/; 


# prepare 'menufile' by writing 21 records 

t of 542 bytes to it (Unix will add CR/LF 

à thus create 544 byte records) 

# These records cover the menu file directory 
i The record will be filled with ASCII “0” 


f write 21 records 
or(i=1;i<=21;i=i+1) 
( 
MENTE (LUMR,7000) (rbuf£(k),k=1,542); 
e00 format (542al); 
) 


# close menufile and open again 
ewind LUMR; 
NNESetfil(LUMR,'menufile “); 


# set menuid to “startmenu” 
enuid(1)=8307; 
enuid(2)=8308; 
enuid(3)=8289; 
enuid(4)=8306; 
enuid(5)=8308; 
enuid(6)=8301; 
enuid(7)=8293; 
enuid(8)=8302; 
Bnuíd(G)=8309; 
enuid(10)=8224; 
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# place menuid and record number into directory 
pICREATE; 
eg] setmen(pl,irec); 


# set entries for other initial controller menus 
# into the menu directory 
feito, SELECT, HELP, CONTROL 

fee? 1<=10;i=i+1) 

nenuid (i) =8224; # SP 


# 'statusO* 
miuid(1)=8307; 
muid(2)=8308; 
mauid(3)=9289; 
mnuid(4)=38308; 
rnuid(5)=8309; 
pnuid(6)=830/; 
rnuíd(7)28240; 
UNSetnen(pl,irec); 


f “select0’ 
vnuíd(1)2830/7; 
rnuid(2)=8293; 
nnuid(3)=8300; 
onuid (4) =8293; 
xnuid(5)28291; 
snuid(6)=8308; 
onuid(/)=8240; 
all setmen(pl,irec); 


# “helpo” 
enuid(1)=8296; 
enuid(2)=8293; 
enuid(3)=8300; 
enuid(4)=8304; 
enuid(5)=8240; 
enuid(6)=0224; 
ienuid(7)=8224; 
sall setmen(pl,irec); 


m control0’ 
nenuid(1)=8291; 
nenuid(2)=8303; 
nenuid(3)=8302; 
aenuid(4)=8308; 
nenuid(5)=8306; 
nenuid(6)=8303; 
nenuid(7)=8300; 
nenuíd(8)28240; 
call setmen(pl,irec); 


call updmr; 


Cal initim; # generate image to initialize TT Display 
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# set label,log command,button coordinates and 
# action code into inopt 
for(i=l;i<=6;i=i+l) # label 
{ 
inopt(i,l)=11(i); 
miopt(1,2)=12(i); 
Enopt (1,3)-713(1); 
inopt(i,4)=14(i); 
inopt(i,5)=15(i); 
inopt(i,6)=16(i); 
Inopt (1,7)-217(i); 
} 


# coordinates of buttons 
inopt(8,1)=3; 
inopt(10,1)=1; 
inopt(8,2)=7; 
inopt(10,2)=5; 
inopt(8,3)=23; 
inopt(10,3)=21; 
inopt(8,4)=11; 
inopt(10,4)=9; 
inopt(8,5)=19; 
inopt(10,5)=17; 
inopt(8,6)=23; 
inopt (10,6)221; 
inopt(8,7)215; 
inopt(10,7)213; 


# action codes 
mept(11,1)=7; 
inopt(11,2)28; 
inopt (11,3)29; 
inopt (11,4) 210; 
inopt(11,5)211; 
inopt(11,6)=12; 
inopt(11,7)=13; 


# set left and right bounds 
for(i=1;i<=7;i=i+1) 
{ 
if (i==3) f acknowledge 
{ 
inopt(7,3)=10; 
inopt(9,3)=15; 
} 
else 
{ 
inopt(7,i)=l; 
inopt(9,i)=6; 
} 
} 
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jf store image for buttons and label 
pl=2; p2=TEXT; 
for(i=1;i<=7;i=i+1) 
{ 
inoptp=ibsea(i); 
call draw; 
Be=inopt(/,inoptp)+l; f£ collum of label 
ir=inopt(10,inoptp)+l; # row of label 
eal poscur(pl,ir,ic,p2); 
for (k=1;k<=4;k=k+l) # image 
{ 
image(imagep)=label(k,inoptp); 
imagep=imageptl; 
} 
feninopt(9,inoptp); 
ir=inopt(8,inoptp); 
EN INposcur(pl,ir,ic,p2); # right lower corner 
image(imagep)-inopt(l,inoptp); 
imagep=imageptl; 


} 


# convert integer of coordinates and action codes 
# into ASCII coded 
for(i=1;i<=7;i=i+1) 
{ 
for (k=/73k<=113;k=k+1) 
{ 
pl=inopt(x,i); 
en intasc(pl,p2,p3); 
inopt(k,i)=p2*256+p3; 
} 


# roll down screen, row 0 now on top 
image(imagep)=27; # ESC 
imagep=imageptl; 
imageliragep)=84; +7 T 
imagep-imagep-tl; 
# clear all lines of the multi purpose menu field 

p2=1; pl=2; p3=LEFTM; p4=NCCH; 
meet poscur(pl,p2,p3,p4); 
for (i=l; i<=LMARG;i=i+tl ) 

{ 

image(imagep)=27; # ESC 

imagep=imageptl ; 

image (imagep)=/53; # K 

imagepzinageptl; 

image(imagep)=27; # ESC 

imagep=imageptl; 

image(imagep)=66; % B 

inagep=inagep+l; 

if (i==10) #separate command string 

{ 
image(imagep)=27; # ESC 
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imagep=imageptl; 
imape(imagep)=65; + A 
imagep=inagep+l; 
inagelimacep)=30; $ $ 
imagep=imageptl; 
} 

} 

# set end of input code 
image (imagep)=36; RS (CR LE) 
imagep=imageptl ; 
imagelimagep)=ENDOFT; 
imagep=imageptl $ 


call shift; # arrange image in buffer 
# Store parameters 

EIS call intasc(pl,p2,p3); 

inopt(2,36)=p2*256+p3; # menu typ (start menu) 

MS Call intasc(pl,p2,p3); 

inopt (3,36)=p2*256+p3; # nurber of input options 

inopt(15,36)=ENDOFR; # end of record code 


i write imagerecords 
# temporarily substitute the last entry by “0” 
Ito prevent that it is a trailing NUL. 
for(ind=542; ind<=IMAGEL; ind=ind+540) 
indbeg=ind-541; 
isavesimage(ind); image(ind)=8240; # SP.°0’ 
write(LUMW,100G) (image(i),i=indbeg,ind); 
NOOO format (544al); 
image(ind)=isave; 


} 


# write input option records 
ME LU: ,500) (rbuff(i),is1,271); 
ENSCe(LUMW,500) (rbuff (i) ,i=271,541); 
500 format (272a2); 


# create records for all predecessor menus 
irecn=NDREC+6; # last record of startmenu 
while(irecn < highr) 
{ 
for(i=1;,i<=6;i=i+1) 
( 
Meee (OUNW,500) (rbuf£(k),k=1,271); xv dummy records 
irecn=irecntl; 
} 
) 


# copy file from menuout to nenufile 
ESL cpfile; 


return; 
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end 


PAAKARARRARA RARA RARA RA RARA RARA RARE RIA RARA RAE RRA AA KARA ARA RA RARA RAR KAR 
it 

if Ne 0M 

if 

JE Ck CK hehe Ce cR C e e e e e e dece ke T e e ho A I AUI A VU UA Ux 
if 

# Initial release -- hn/6 november 79 

MAE: 

if mo tit 

EB FUNCTION: 

it create the image to initialize the TT Display 

j 

dit df sb at it tt ab at ab ab ik AE TE at GP ab at iB ac it if it HB at Bat oP at a ad at ib oP ae ac ad iB a iE Eiaa IAEE Iie ETE w i i iE Eie it 


subroutine initin; 


common /blkl/inage,imagep,inopt,inoptp; 
integer*2 image(IMAGEL) ,imagep,inopt (INOPTL,INMNAX) ,inoptp; 


WESC E -= Initialization 


timage(imagep)=2/7; EC 
fimagep=inagep+l; 
#image(imagep)=69; * E 
fimagep=imagep+l; 

# ESC J -- clear screen 
timage(imagep)=2/; ESO 
#imagep=imageptl; 
fimage(imagep)=74; TET 


finagep=imageptl ; 


# ESC ) B -= define character set B 


#image(imagep)=27; i ESC 
fimagep=imageptl; 
fimage(imagep)=41; 72 >) 
#imagep=imageptl; 
#image(imagep)=66; # B 


timagep=imagep+l; 


f Image to home the cursor and get 
drid of “TERMINAL, READY" 


image(imagep)=2/; t ESC 
imagep=imageptl ; 
image (imagep)=104; # h 


imagep=imagep+l; 
image(imagep)=27; % ESC 
imagep=imageptl; 
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mage(imagep)=/5; # Kk 
imagep=inageptl ; 


return, 
ind 


RAKAKKKAKAKK KA RK KK KK KK KK A N KA KA KK AK KK AN AK AK AK KH KK HK A KK AK A KK RK KK KH AK A RK A A A 
i 
| DFE CTE ISE 


$ 
/ 
$ 
f 
E Vo AAA Go ek ZA ZÁ A Gode e deck AAA dock doc oU KA KA KA TCU 
F 
t 
P 


NAHME: 
delete 
FUNCTION: 
delete an entry in menu directory 
f ALGORITHN: 
: while(entries in directory) 
i read record into input buffer 
, if entry was already found 
f write buffer 
f else 
f search entry in buffer 
f if found 
f delete entry in buffer 
; set found flag 
ř write buffer 
f 
+ copy rest of menufile to menuout 
f copy menuout to cenufile 
f 


Re erde 


subroutine delete; 


common /b1k4/menuid,ipredn; 
integer*2 menuid(10),ipred«. (10); 


Mpeeere2 buff(544), dir(12,45), irec,found; 
EU valence (dir(1,1), buff(1)); 


# preset data 
irec=l; # counter for records 
Found=0; # found flag -- notfound 


# set END-OF-FILE exit 
@eerror(l04) !- 0) goto 9999; 


# search directory records 
While(irec <= NDREC) 
{ 
read(LUMR,1000) (buff(i),i=1,544); 
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1000 format(544al); 


if (found == 0) # entry not yet found 
{ 
k=1; # pointer to entries 
while(k<=45 & found==0) 
{ 
1=1; f pointer to characters 
while(1<=10) 
{ 
if(menuid(l) != dir(1,k)) break; # no match 
if (1>=10) # entry found 
{ 
found=l; 
for (i=1;i<=10;i=-i+rl) 
dir(i,k)=8240; * £ill in °0’,delete entry 
} 
ju E 
} 
k=k+l; 
) 
} 


rer Luli, 1000) (buff (i),i=1,542); # write record 
} 


t copy rest of menufile 
while(1>0) 
{ 
read(LUMR,1000) (buff(i),i=1,544); 
meee (LUiW,1000) (buff(i),1=1,542); 
} 


9999 call cpfile; # copy back from menuout to menufile 
return; 
end 


jk ok ek ek dk ek ok ok A A A A x A I X n AX KAKKKKKKICKAEIKKAKKKAK HK KCAL, KL TI KHK NK N, 
# 

j UPDATE 

ir 

jede ok eec ee A Ao eec ck dee dc c ck ode e dec ey A A CU AX 


i Initial release -- hn/12 oct 79 
ř NAME: 


# update(irec) 

f CALLING PROGRA: 

it menued 

# FUNCTION: 

it Determine lengtn of image needed 

it Generate image and input options and store then 


i in the menu file starting at record irec 
# INPUT PARAMETER: 


153 





i irec = record number ín nenu file to store first record 
NOTE: 

i This routine is responsible that all menu records 
if are copied to the temporary menu file. 

# ALGORITHE: 

ř zenerate header (no image generation) 

it while there are more text/question blocks 

if generate a block (no image generation) 

i close the input file 

i, open iaput file for second run 

i generate header 

it generate blocks having the right spacing 

i write records 

if close files 


i? 
irrt 


subroutine update(irec); 


integer*2 irec; 
common /blkl/image,imayep,inopt,inoptp; 


integer*2 
integer*2 
integer*2 


image (IMAGEL) 3 
imagep; 
maopt( LNOPTL,INMA) ; 


integer*2 inoptp; 

common /bik2/lincent; 

integer*2 lincnt; 

comn.on /blk6/nblock; 

integer^2 nblock; 

common /blk9/ispace; 

integer*2 ispace; 

BEnEecer*2 buff(50), pl,p2,p3,p^,p5; 


# preset data 
ispace=0; 
lincnt=0; 
inoptp=1; 
imagep=1; 


/ generate header,read nunber of blocks 


# first run - no image 
pl=l; 
call header(pl); 


£f generate blocks, first run - no image - 
for(i=0; i<=nblock; i=i+1) 
ET block(p1); 


# close input file, open again 


rewind LUR; 
EN setfil(LUR, ’infile “); 
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# preset data for second run 
Mec lanent>20) write(6,19);19 format(“Too many image lines needed”); 
ispace=(LMARG-linent)/(nblock+1); 
Binent = 0; 
imagep=l; 
inoptp=1; 
pl=2; * Second run -- generate image 


# clear all lines of the multi purpose menu field 
p2=1; p3=LEFTM; p4=NOCH; 
ES I poscur(pl,p2,p3,p); 
for(i=1;i<=LMARG; i=i+1) 

{ 
image(imagep)=27; # ESC 
inagep-imageptl; 
image(imagep)=/5; EK 
imagep=imagep+l; 
image(imagep)=2/; # ESC 
imagep=imagep+l; 
image(imagep)=66; % B 
imagep=imageptl; 
if (i==10) separate command string 
{ 
image(imagep)=2/; # ESC 
imagep=imageptl ; 
image(imagep)=65; # A 
imagep=imageptl ; 
image(imagep)=36; # $ 
imagep-imageptl; 


# update directory records,retrieve data,store it in nr 
puc updur; 
# dummy read of function code,menu id, 
# predecessor menu id, menu type 
read(LUR,1000) buff(1); 
read(LUR,2000) buff; 
read(LUR,2000) buff; 
read(LUR,1000) buff(1); 
1000 format(i3); 2000 format(80al); 


i generate header -image- 
call header(p1); 


* generate blocks -image- 
for(i=1;i<=nblock;i=i+l) 
Bal Block (pl); 


# write records, close menu file 
Call finish(irec); 
return; 
end 
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JR ek de e eee ek ce e e cede de ee defe ede ek efe ee e d eek e eet ede eet dede dot e dee 
if 

i HEADER 

jf 
jjkkkkkkkkškkkěkkškkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkěžžkkkkkkkkkkkkkkškkkš 
# 

i Initial release --hn/12 oct 79 

* NAME: 


# header (inp) 
tí CALLING PROGRAi: 
F update 


FUNCTION: 


if read menu title and number of blocks 


# INPUT PARANMETER: 


i inp - 1: first run, no image generation 


if second and final run 
# ALGORITHM: 

j Mear all tabs 

i position cursor to first line 
if soby text 

# read nunber of blocks 

j 


Ea dIE EEE EEE az 
subroutine header(inp); 

common /blk6/nblock; 

integer*2 nblock; 

Bornon /blkl/image,imagep,inopt,inoptp; 

intecer*2 image(I:ACEL),imagep,inopt (INOPTL, [MMAX) ,inoptp; 

integer*2 inp; 


integer*2 pl,p2,p3,dumny; 


Í clear all tabs -- ESC 3 


image (imagep)=27; FP ESC 
imagep=imageptl; 
image (imagep)=51; 6 3 


imagep=inageptl ; 


# position cursor for menu title and copy it 
pl=0; p2=LEFTN; p3=TEAT; 
Bae! poscur(inp,pl,p2,p3); 
call copy(inp,dumny); 


# read number of blocks from input file 
read(LUR,1000) nblock; 
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NODO format (13); 


return; 
end 


PRARAARARARARARARARERKAERA RARA RARA RÍRR RRA RARA RAR RARARA ARA RARA RARA NARA RAR 


if 
# Bole Or Gr. 
t 


VAAKKAKKKKKAKKKK KA KK KT KK KH AK KK KT KK A KA A KA KK KK KA KH N A A KK AK HN A KK A AK N A KR 


it 
i Initial release -- hn/l2 oct 79 
# NAME: 


it block (inp) 

# CALLING PROGRAI: 

it update 

# FUNCTION: 

i, read the parameter for a block and store then 
f determine positions of buttons 
it draw each button and label it 

# INPUT PARAMETER: 

f inp - 1: first run -no image- 

f 2: second and final run 

# ALGORITHH: 

il read block parameters 

f copy text/question 

i, determine coordinates of buttons 
it draw each button 


ir 


iE HE tt of tt at at ib aE ET ADE ERA i Ke AP z P de HE AP TE AE dr dy E de 30 30 E P SE dre 


Subroutine block(inp); 


Euuron /bik2/lincnt; 

integer*2 lincnt; 

Bonmon yblk7/nbutt,iloc,isize; 
integer*2 nbutt,iloc,isize; 
common /blk9/ispace; 

integer*2 ispace; 


integer*2 inp; 


integer*2 icode; 
ENS CEr*2 51,p2,p3,is,ix,iy,ic,lbutt,ltext; 


# read block-start-code 
# if not present write error message 


1:5 


Est si fl d 
2 j 14 } 





FeaalLuUR, 1000) icode; 
1000 format (i3); 
mí (icode != SBLOCK) 


{ 


meee UW, LOO): 


Moe nat(lx, No text or question block’); 
return; 


} 


else 


{ 


# read block parameters 


Beal (UR, 1000) nbutt; number of buttons 
Rea UR. 1000) iloc; * location of buttons 
read(LUR, 1000) isize; # size of buttons 


# do spacing before block 


is=ispace; 
pnefd(inp,is); 


* button row beside text 


if(iloc == LOCB) 


{ 

lbutt=isize+2; 
ltext=lbutt/2; 
Lx=RMAPGB; 
iy=lincnttloutt-l-isize; 
idx=(isize+DELTA)*1.5; 
ix=ix-(nbutt-1)*icx; 
idy=0; 

} 


# button collumn beside text 


else if(iloc == LOCC) 


{ 

lbutt=nbutt* (isize+DELTA)-DELTA+l; 
ltext=lbutt/2; 

ix-RhARGC; 

iy=lincnt+lbutt-1-isize; 

idx=0; 

idy=(isize+DELTA); 
iy=iy-(nbutt-1)*idy; 

> 


# button row under text 


else if(iloc == LOCA) 


{ 

lbutt=isizet3; 

heext=1; 
ix=(RMARCA+LEFTM-DELTA+nbutt*(isize+DELTA))/2; 
Py =Lincnt+3; 

idx=(isize+DELTA)*1.5; 

ix=ix-(nbutt-1)*idx; 

idy=0; 


158 





* copy text 
ic = NODONE; 
pouusDretd(inp,ltext); # linefeed to start of text 
while(ic == NODOLE) 
{ 
Meee itis; p2=TEXT; p3=lincnt; 
cuc poscur(inp,p3,pl,p2); 
pu copy (inp,ic); 
pl=lbutt-ltext; 
if(ic==hODONE € iloc==LOCA) 
( 
lbutt=lbutt+l; 
iy=iy+l; 
} 
else 
eel linefd(inp,pl); # linefeed below text 
) 


# draw buttons 
for (k=1;k<=nbutt;k=k+1) 
{ 
pl=isize; 
m button(inp,pl,ix,iy); 
ix=ixtidx; 
iy=iy+idy; 
> 


meturn; 
end 


jLde de de e eek tee ok dee ekle de eek deed RAR A RR RA AA RRR OK EK 
if 

i? Ne 

i 

JE de je dede je dede e ok ok de dock ek oed e KKK RR IRR ISK IRIE RRR AKER RK KK 
if 

f Initial release -- hn/12 oct 79 

3 NAME: 


if Enish(irec) 
* CALLING PROGRAM: 
if update 


# FUNCTION: 


i write menu records onto nenu file 

ESUNUPUT PARAMETER: 

if ee = first menu record on file 

# ALGORITHN: 

it divide image store into record size pieces 
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if if image pointer within a piece, store ENDOFI 


i if image pointer within or at the end of a piece 
je store ENDOFR 

ir write record 

i determine last entry in input option store 

it store tenu paraneter and ENDOFR 

if write record 

if 


Záda aaa aa aaa aaa a Da EE aE a a te de 


subroutine finish(irec); 


BuBecer^2 imager, inputr,pl,p2,p3,pó,irec; 
cormon /blkl/image,imagep,inopt,inoptp; 
integer*2 irage(IMAGEL); 

integer*2 inagep; 

integer*2 inopt(INOPTL ,IIÍAX); 
integer*2 inoptp; 

common /blk2/lincnt; 

integer*2 lincnt; 

common /blk8/mentyp,ipredr; 

integer*2 mentyp,ipredr; 

common /blkl3/mr,ptr; 

mmeeeer=2 mr(21,50),ptr; 

common /blkl4/highr; 

integer*2 highr; 


integer*2 reccnt; # counter for written records 
integer*2 save; 

integer*2 inputo(542); 

equivalence(inputo(1), inopt(1,1)); 


# temporary buffer for records 
integer*2 rbuff(544); 


reccnt-iLREC; # preset counter (20 directory records) 

# save first record numbers for image and input options 
imager=mr(2l,irec); 
inputr=imager+NIREC; 


# set END-OF-INPUT code 
inage(imagep)=ENDOFI; 
imagep=inageptl ; 


# shift image to avoid records cutting command strings 
# and set ENDOFR in last image record 
Ball shift; 


# set label £or END-OF-FILE condition 
Exoerror(104) ! 0) goto 9999; 

# copy all records up to first record of this menu 
for(k=NDREC+1; k<imagerz k=k+1) 
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{ 

Beaag(euliR,1O0U) (rbuff(ij),ij=1,544); 

MMB uit, }000) (rbu£ff(ij),ijs1,542); 
pecentereccnt-tl; 

Ino Sormat(544al); 

} 


# write imace records 
# temporarily substitute the last character to ensure 
# that it is no space. This would decrease the 
# fixed record length. 
for (ind=542; ind<=IMAGEL; ind=ind+540) 

{ 

save=image(ind); image(ind)=3240; # SP 707 

indbeg=ind-541; 

write(LUMW, 1000) (inage(i),i=indbeg,ind); 

image(ind)=save; 

reccnt=reccenttl; 


} 


emt (2),ipredr); call intasc(pl,p2,p3); 

maepte (i, 29)=p2*256+p3; 

pl=mentyp; call intasc(pl,p2,p3); 

inopt(2,29)=p2*256+p3; 

M inoptp-l; call intasc(pl,p2,p3); 

inopt(3,29)=p2*256+p3; # number of options (incl. perm.b.) 
inopt(15,29)=LNDOFK; 


# convert integer into ASCII 
for(x=1;k<inoptp; k=k+l) 
{ 
for(xk=7;kk<=11;3 kk=kk+1) 
{ 
EIESHODE(kk,k); call intasc(pl,p2,p3); 
inopt(kk,k)=p2*250+p3; 


# write input option records 
BESEe(LUMW,500) (inputo(i), i=1,271); 
reccnt=reccnt+l; 
merce(LUiW,500) (inputo(i), i2271,541); 
recent=reccnt+l; 

BOO format(2/71a2); 


# copy rest of menu file 
# it done goto 9999 
BENMerror(l04) != 0) goto 9999; 
# dummy read over old menu records 
for(i=NIREC+NOREC; i>0; i=i-l) 
read(LUMR,1000) (rbuff(ij),ijel,544); 
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iconst=l; 
while(iconst==1) 
{ 
ARA LUMR, 1000) (rbuff(ij),ij=1,544); 
te (LUMY, 1000) (rbuff(ij),ij=1,542); 
reccnt=reccnttl; 


} 
9999 while(highr > reccnt) # more records to create 
{ 
for(i=1;i<=63i=i+1) 
mate (LULUW, 1000) (rbuff(ii),1j=1,542); 
reccnt=reccnt+6; 
} 
Ball cpfile; i copy file from menuout to nenufile 
return; 
ena 


JE Ce e A ck ce A KK KK A KK KH KK KH N A N ec ck ck ck kA ck kx x A 
# 

Ü CA Y 

if 

PARA AAR AAA ZÁ A A e e ck ck c e c ek KH A AN KA KH KR A KK 


4 
v 


i Initial release -- hn/l4oct 79 
i NAME: 


if copy (inp, iflag) 

ESFUNCTION: 

# Bony text from input file to image array 
# INPUT PARAMETER: 

i iMm 1: do not copy 

if 2: do copy 

# OUTPUT PARAMETER: 

F iflag - DONE: °’@’ encountered, end of text 
if NODONE: not yet end of text 

# ALGORITHM: 

il if inp = l: return 

F preset iflag to NODONE 

ř read 80 character input line 

if Hee ^ 

4 set iflap to DONE, return 

i, BOR. 

# return 

i, copy input character by character 

ij 


ib ik af a AE AP AE AE ab at oe te aE dB ak aE AE AB a ab AE aE a oP a ab a a AB aE ab ap a a BaP a APP aE EE E ic oP aE ae AP AO AKA a ab aE Pa a ae ir ic ak Bat AE ae 


subroutine copy(inp,iflag); 





Exceser^2 inp,iflag,ichar,pnl; 

common /blkl/image,imagep,inopt,inoptp; 
integer*2 image(INAGEL); 

integer*2 imagep; 

integer*2 inopt (INOPTL, TUMAX); 
integer*2 inoptp; 

Sommon /blk5/ibuff; 

integer*2 ibuff(80); 


# preset output flag 
if lag=NODONE; 

# read input line 
meaa(LUR,100) ibuff; 
MUO) format (80al); 


# copy characters, break if "8" 


ichar=8256; BSP 
pl=1; 
for(i=l; i<=80; i=i+l) 
{ 
muEDUuff(i)s-ichar) # SP.’ @’ 
{ 


if lap=DONE; 
earl linefd(inp,pl); 


return; 
} 
if (ibuff(i)==8205 | ibuff(i)==8316) # SP.CR or | (end of line) 
{ 
call linefd(inp,pl); 
return; 
} 


eisce if({inp != 1) € 
image(imagep)=ibuff(i); 
imagep=irageptl; } 


} 


return; 
end 


dl ec ek e s e e ek le e c ek ke dede e de ee dk dee de ec dee dee ck de doe do dede ee ete dede A 
ii 

4 > = 

if MINCE FD 

it 

[Lc e e ck de e e de e ek ee e dele e he ek dede de ee de dee ek e ck e e e eee et e dede ede ke de ke de dete RR 
# 

# Initial release -- hn/14 oct 79 

# NAME: 
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# linefd(inp,nun) 

# FUNCTION: 

generate display commands for line feed/ carriage return 
# INPUT PARAMETER: 

if EDI 1: do not generate, only update lincnt 

i 2: generate line feeds, update lincnt 

it num = nuber of line feeds 


ř ALGORITHU: 


fr update lincnt 
if if inp = 1 return 
i generate linefeeds, carriage return 


if 
i 


dE E EAP AP VEE SP ae E de A dě dr EA de db AC, oP ie AP a AP A AP AE AP ar 36 AP AC PAE ak aE aE a BaP ab ap aE ah at ae EPP aE aE at ae ah PPB a BE aH HE 


Subroutine linefd(inp,nun); 


integer*2 inp,nun; 
common /b1k2/linent; 
integer*2 lincnt; 


linent=linent+nun;3 

if(inp==1) return; # no image generation 
E crlf; 

return; 

end 


jk o ee ek ck ok c ce fco ck e e e eee o ok fed de e dee ed ok e c oe RARA 
if 

ir bP OFS ClU OR 

i 

i 


VRRKAKKAKKKKKKARKKK KA K AK Á KK ZÁ ZAK AZK K ZÁ RÁ A RÁ ÁÁ Z ZÁ AKA ZAK KA K A KR AK I NR RK A N A 


initial release -= hn/l4 oct 79 

# NAME: 

/ poscur (inp,irow,icol,icode) 

# FUNCTION: 

i, position the cursor and switch to requested mode 
# INPUT PARAMETERS: 

# inp ~ l: do nothing 

j 22 do 

f irow = row number 

F -l if only collurn change 

i icol - collumn number 

i? -l if only row change 

f if both irow and icol = -1, only change node 
ř icode - new mode 

ir BUTT - Alternate character set (lines) 

t TEXT - Ease character set 

i NOCH ~ No change, leave old character set 


# ALGORITHM: 
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ir a2 Inp=l return 


i if new mode != NOCH 
i switch to new mode 
i position cursor 


i 


dl Berge dt at di ); metre, a LE LM s P UM ao k dd de iaa ade IE dl oh lol dk dk ode nl Sb Jel el Er je E eL pui 
BEN D UMeb$gd4ddgsdzSusgusuissfSsSwd]dddTQUgdigjükggdjdjgdsddisdgrdssvthb4ggdg 


Exnbroutrne poscur(inp,irow,icol,icode); 


integer*2 inp,irow,icol,icode; 

common /blkl/image,imagep,inopt,inoptp; 
integer*2 image(IMAGEL) ; 

integer*2 imagep; 

integer*2 inopt(INOPTL,INMAX); 
integer*2 inoptp; 

cormon /b1k3/mode; 

integer*2 mode; 

common /b1k10/rowcur; 

integer*2 rowcur; 


integer*2 irowmv(6); 
integer^2 icolmv(6); 
integer*2 ircnv(9); 


ESC £ a R 
Mata irowov(1)/27/; 
data irownv(2)/38/; 
mata irowmy(3)/97/; 
Mata irowmv(4)/32/; 
Euro (5) /32/; 
Baraodrownv (6) /82/; 

EESC 6a ^| (0r o C 
mataearemy(1)/2/7/; 
Mata incnv(2)/38/; 
data iremv(3)/9//; 
Mata ircnv(4)/32/; 
Mata ircmvy(5)/32/; 
data ircmv(6)/114/; 
Seeger ociy(/)/32/; 
Hata ircnv(8)/32/: 
Hata ircmv(9)/67/; 

ESC E a _ C 
Nata icolmv(1)/27/; 
Mata icolmv(2)/38/; 
data icolmv(3)/9//; 
Mata icolmv(4)/32/; 
wea colnmv(5)/32/; 
data icolmv(6)/67/; 


if (inp == 1) return; 


f move only row 
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if(icol == -1 & irow != -1) 


{ 
irowmv(4) = irow/10+48; o0” 
irowmv(5) = mod(irow,10) + 48; To 
for(i=l; i<=6; i=i+l) 
{ 
image(imagep) = irownv(i); 
imayep=imageptl ; 
} 


Y Save row of cursor 
rowcur=irow; 


} 
f move only col 
else if(irow == -1 £ icol != -1) 
{ 
icolmv(4) = icol/1C0 + 48; + 707 
SOI (S) = nod(icol,l0) + 48; E EOS 
for(i=1; i<=6; i=i+l) 
{ 
image(imagep) = icolmv(i); 
inagep=imagep+l; 
) 
} 
# move row and col 
else if(icol != -1 € irow != -1) 
t 


separate command string 
mo. (cur<23) call crlf; 


ircuv(4) = irow/lO + 48; # 707 
iremv(5) = mod(irow,10) + 4&8; o 
ircmw (7) = icol/l0 + 48; + 0” 
memo) = mod(icol,10) + 48; 09° 
for(i=l; i<=9; i=i+l) 

{ 


image (imagep)=ircwv (1); 
imagep=imageptl ; 
# save row of cursor 
rowcur=irow; 


) 


# change mode if necessary 
if(icode != NOCH) 


{ 
image(imagep) = icode; 
imagep=imageptl; 
mode = icode; 
) 
return; 


end 
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PŘAKRAARKÁA KA SA A RÁ NR Á A ANN KH AKT KK AA KK K KH A KK A KT KA KH A KK KH AK AK AK A AR KK KA KK KA KA 


d! 
w 


i BE TOT OSN 

i 
#kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkěkkkkkkkkkkkkkkřikkkkřkkkkkkkkk 
if 

# Initial release -- hn/ 14 oct 79 

r NAME: 

if Futton(inp,isize,ix,iy) 

EESUUCTION: 


i read additional button information and store it in inont 


it initiate drawing of the buttons 

r IUPUT PARAMETERS: 

i inp - 1:do not draw buttons 

r 2: do everything 

i zen- size of the buttons to craw (number of lines) 
it ix - collum nunber of rigth upper corner 

i iy - row number of rigth upper corner 


# ALGORITHH: 


ir read start-of-response code 


f if not there, write error message 
i; read and store: 

label 

i plain-English resage for logging 
r action code 

i if display-new-nenu 

i read renu-id 

ir set first record number cf menu 
if store record number in inopt 

i if return-character 

it read character and store it 

ir if return-integer or return-task-id 
if read integer and store it 

i if parameter-block-update 

i #++t+++++ do not know yet 

if if inp == 2 

# store button coordinates 

it create button images 

i increment pointer in inopt 


» 


ir 
Eneröoutine button(inp,size,ix,iy); 


Mete cer=2 1np,size,ix,iy,ichar,irec; 
Enteger*2 pl,p2,p3; 


common /blkl/image,imagep,inopt,inoptp; 
integer*2 image (IMAGEL); 
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integer*2 imagep; 
Mmteger*2 inopt(INOPTL,INMAX); 
integer*2 inoptp; 


common /b1k4/menuid,ipredn; 
integer*2 menuid(10); 
integer*2 ipredm(10); 


common /b1k5/ibuff; 
integer*2 ibufFf(IBUFFL); 


integer*2 icode; r temporary storage 


# input buffer 40 words 
integer^2 iwbuff(40); 


mehar=8256; ISP. E” 
# read start-response code 
read(LUR,1000) icode; 
1O00 ormat (13); 
Mm(icode != SRESP) 
{ 
pete LUM, 100); 
EUESormat(lx,'Uo response to read”); 
Beeurn; 


} 


else 
‘ 
i read label and store it 
EESXUUDUR, 200) ibuft; 
pu Srormat(40a2); 
INSPECT, inoptp) = ibuff(1); 
* read plain-Znglish message and store it 
read(LUR,300) iwbuff; 
for(i=2; i<=6; i=i-+l) 
( 1£(iwbuff(i-1)==ichar) break; 
inopt(i,inoptp) = iwbuff(i-1); } 


# read and store action code 
read(LUR,1000) iact; 
meyepe(il,inoptp) = tact; 


# display-new-nenu 
if(iact == 1) 
# read menu-id and store it 
read(LUR,200) ibuff; 
200 tormat(80al); 
for(i=l; i<=10; i=i+l) 
ipredn(i)=8240; "SP 0° 
i=l; 
while(i<=10 & ibuff(i)!= ichar) 
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ap redm(i)sibufrf(i); i=i+l; ) 

if (inp==1) 

( ol=PREDL.; 
Goer setmen(sl,irec); } f set menu record number 
else ( call cetmen(irec); 


Bleiree; call intasc(pl,p2,p3); 


comet? ,inoptp) = p2*256+p3; i store record nunber 
) 
# return-character 
Pise @e(iact == 2 | iact == 4) 
{ 


read(LUR,300) iwbuff; 
imepte(l2,inoptn) = iwbuff(l); 


> 
# integer or task-id 
else if(iact == | iact == 14) 
{ 


read(LUR,1000) pl 
call intasc(pl,p2,p3); 
mopt(l2,inoptp)=p2*2560+p3; 


j 
# +4+++++ pb change, do not yet know 
else if(iact == 15) 
{ 
continue; #++++ do not know 
) 


i draw buttons 
if(inp == 2) 


{ 
inopt(7,inoptp) = ixtl-size*l.5; 
imopt(8,inoptp) = iy-I+size; 


Opt (9, inoptp) = ix; 
inopt(10,inoptp)= iy; 


Cent draw; 
} 


inoptp=inoptp+l; 


Beturn; 
end 


ER RAK AIK KKK KK KEI KK KK KKK RAE KARRI RAKE ERR KKK KKK KAR AK KKK KR RERER EERE 
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if 
if DRAW 
if 


KARKKARRKRRARKKAÄRARKRK KK ÄR A KT KH AK KK HK A KK A I KA N KA KK NK A KH AK AK RR AU AG A 


it 
# Initial release --hn/ 15 Oct 79 
r NAME: 


iF draw 

# FUNCTION: 

# create image to draw a button 

# ALGORITHM: 

# clear all tabs 

# set tab at rizht button margin 

# set tab at left button margin 

i position cursor to left upper corner 
if while more lines 

if enhance line within tabs 

i tab to beginning of next line 
je tab to left limit of button 

ir draw label 

if 


dd ddd ddd dada ad aaa a a aa děda aa děs n aa aa a dd ad da ad ma ab it ie iB ap PE aE oP tt 


subroutine draw; 


Ma 2 pl,p2,p3,p4,iy,ir,ic; 

common /blkl/image,imagep,inopt,inoptp; 
integer*2 irage(IilAGEL); 

integer*2 inagep; 

integer*2 inopt(INOPTL,INMAX); 
integer*2 inoptp; 

common /b1k10/rowcur; 

Entecer^2 rowcur; 


integer*2 icltab(2); clear all tabs 
integer*2 endenh(4); end of enhancenent 
T ESC 3 


eta icltab(l)/27/; 
@ata icltab(2)/51/; 


f ESC 8 d G 
@ata endenh(1)/2//; 
@ata endenh(2)/38/; 
@ata endenh(3)/100/; 
data endenh(4)/64/; 


# separate command string 
"ur crif; 


# clear all tabs 


for(i=l; i<=2; i=i+l) 
{ 
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image (imagep)=icltab(i); 
imagep=-imageptl; 


) 


# set right tab 
mi=inopt(9,inoptp)+l; 
ESI] settab(p1); 


# sane for left margin 
pl=inopt(/,inoptp); 
call settab(pl); 


7 save upmost line of button 
iy=inopt(lO,inoptp); 


© draw enhancement for button 
while(iy <= inopt(8,inoptp)) 
{ 
# position cursor to upper left corner, change mode 
p4=2; p3=BUTT; 
call poscur(p4,iy,pl,p3); 


call enhanc; 


ETT tab; 
for(i=l;i<=4;i=itl) # end of enhancement command 
{ 


image(imagep)=endenh(i); 
imagep=imageptl; 


iy-iytl; 


i draw label 
EN inopt(/,inoptp)-tinopt(9,inoptp))/2?; 
E (inopt(8,inoptp)-inopt(l10O,inoptp))/2; 


ESUce-12) return; # no label for permanent buttons 
pl=2; p2=TEXT; 
See poscur(pl,ir,ic,p2); 


f copy label 
inage(imagep)=inopt(l,inoptp); 
imagep=imageptl; 
image (inagep)=inopt(l,inoptp)/256; 
imagep=imafeptl ; 


return; 
end 


HK KK KKK RK KEK EK IK KKK RR RK EKER KKK A ER KA A AK Aa a A KK ah A dd 


ir 


Ii 





i Sana A R 


i 
f 
PREKKKKAKKKEKKKRARRRRRKERK RARER RKRRR ERK RKKREKE RARE RRAKRARKRRRRKRKERRKRKRKK 
i 


Mm initial release —-hn/ 15 oct 79 
B ALLE: 


jt settab(icol) 

Fr FUNCTION: 

it position cursor to specified collumn 

# set tab 

7 ALGORITHM: 

if move cursor to collumn 

# set tab 

if 
EEES 


subroutine settab(icol); 


Erecer*2 icol,pl,p2,p3; 

common /blkl/image,imagep,inopt,inoptp; 
integer*2 image(IMAGEL); 

integer*2 imagep; 

Enterer*2 inopt (INOPTL,IMMAA); 
integer*2 inoptp; 


pl=2; p2=-1; p3=NOCH; 
meeeposcur(pl,p2,icol,p3); 
inage(imagep)=ESC; 
imagep=imageptl ; 
inage(imagep)=49; p ence! 
inagep=inageptl; 

return; 

end 


JA ck ck ck AC AU AG Ck Ck AC TC cec k ck Uc AUR VOU Ae A KK KK KK KK KK KK KK AK AK 


ji 

if TAB 

# 

jk deck e e ok o AUCI Uk Joke ok e UC ck ke ck CI eC e AC AU 
# 

# Initial release -- hn/ 15 oct 79 

dt x 1 

NAME: 


fF tab 

See UNCTION: 

i, generate tab 
if 


HH E Edd sd af aE aE AE GP AB a aE TE AP de BE SE AE de dr zb JE T ab aE oP GB at PP a AP ie ak aa ac teati ir ak iea ae ta 


Subroutine tab; 
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common /blkl/image,imagep,inopt,incptp; 
integer*2 image(I™MAGEL); 

integer*2 imagep; 

BEutecer^2 inopt(INGOPTL,INMAX); 
integer*2 inopto; 


image (imagep)=ESC; 
imagep=imageptl; 
image(imagep)=73; TESTA 
imagep=imageptl ; 

return; 

end 


RK KK KKK KKK KKK KK ee ek e de jk dk dele ede eek det ded dede dedo de dj dede e te dee 
if 

j Bar NG 

i 

jk de dee ek oe je dee dk e dk dj dee ok de ek ek de dede de e A do ek eee dd dee ek dede dede Xx 
if 

í Initial release --hn/ 15 oct 79 

M NANE: 

if enhanc 

# FUNCTION: 

if Start enhancement for button (inverse video,half bright) 

i} 

EEE EEE Eee 


Subroutine enhanc; 


common /blkl/image,imagep,inopt,inoptp; 
integer*2 image(IMAGEL) ; 

integer*2 iragep; 

integer*2 inopt (INOPTL,INMAX); 
integer*2 inoptp; 


integer*2 ienh(4); 
Y ESC & d J 
data ienh(1)/27/; 
data ienh(2)/38/; 
Mata ienh(3)/100C/ 
data ienh(4)/74/; 


for(i=l; i<=4; i=i+l) 
{ 
image(imavep)=ienh (i); 
inagep=inageptl; 


) 
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return; 
and 


JE ck A T e IA AUC CA c Ace A ACA AU AU A C A AKA K Á KH A KK UA 


i 

ir BH TAS C 

if 

JE x xx CA ACC c CA Ck C ee c KK KK AK KK KEN HK KK KK KK KK KK KK KK AH KK A KH KH A KH KH AK 


it 


# Initial release -- hn/3l october 79 


WNAE: 

i intasc(inp,outl,out2) 

# FUNCTION: 

# Conversion cf an integer (0-900) into two integer*2 ASCII codes 
! ALCORITHM: 

i? outl= inp/30 +40 (range ASCII 40-70) 

t out2= mod(inp,30) +40 (range ASCII 40-69) 

# 


AAA de AAA ARENAL A ARALAR LA A E AAA A SERES arar AE dE ARG AE Gear do arde 
subroutine intasc(inp,cutl,out2); 


Mitecer*s2 inp,outl,out2; 
integer nunl,num2; 


numl=inp; 

out l=inp/30+40; 
nun2=nod(numl, 30); 
out2=num2+40; 
return; 

end 


jk c e eo ke ke e e ee e ok e o cfe foe ek c ce dee e dee dede f ck OU KK Ä KH AN AU RN 


i 

il ASCINT 

# 

JE kc ke hehe ek hehehe e he he ch he hee ee o doe e dc fc fe o A Nee fede oc oc o KK AK KA NK 
i 


t Initial release -- hn/3l1 october 79 
F NAME: 


n 


if mseint(inl,inž,outp) 

# FUNCTION: 

# Conversion of an ASCII coded number (0-900) into 
# an integer*2 value 

i ALGORITHM: 

i Em ini-20)*30 + (in2-30) 

if 


ABB ZE AB E HE dE dB aE aE at iE ad a ab at HP ab ea oP aE ab EE ak aE ap AE AE AC EET EEEE EEEE E AP AP it ak ik aa aa aE 
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Miproutine ascint(inl,in2,outp); 
maceser*2 inl,in2,outp; 
outp=(inl-40) *30+in2-40; 


return; 
end 


fp dee hee hee ee Tee KH KK HT KK KK ck ek ek ok ok ehh ke e eee ede ke d d e Ak x AA X 


i 


if COURSE E 

it 

HAKRKKKKKKRKKKKKK HK KK KK AK KK KA KA KA KH KK KK A KK KH KH KK KA K KK KA KH KH KH A KK RK A TA KH KK 
i 

ENDitial release -- hn/31 october 79 

| NAME: 

ý elf 

+ FUNCTION: 

í create cr/lf for image array without incrementing 

Í eae linecounter lincnt 


ff 
dt tt aE a a at at at ab a aE it ae at ac at at bab APA GB aE a at oP aE ae at a ab ak it tk SP ae AB aE arb ik ab ic BSE AE ER AEE PEG a ae ab in EEE AR a Bi 


Subroutine crlf; 


common /blkl/image,imagep,inopt,inoptp; 
integer*2 image(INAGEL), imagep; 

common /blkl0/rowcur; 

integer*2 rowcur; 


EN roucur»22) return; # cr/lf would roll up the screen 
image (imager) =36; MAN 
imagep=imareptl; 

return; 

end 


fL ce e deck eee check ek koe effc eo e dc do deck dede A AAA ee e KK KK Ä KR AN AN KH RAN 


if 


j Salter FET 

# 

JE de ke deck v RAK ERK RK KIA IKK KRKR EK KK ERK KER ERR RE KR REE RARER RR RERERERERRRERE 
f 

# Initial release -- hn/3l october 79 

# NAME: 

# Shift 
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# FUNCTION: 


if shift the contence of the image array to prevent 
i? Separation of a command string by any record 

if place ENPOFR into last used record 

P ALGORITH!!: 

if while(imape fills another record) 

i start at end of record and search CR/LF 

if Ae ound compute difference to end of record 

i shift rest of image by the difference 

if place ENDOFR into last used record 

i 


de it at aE aE aE AE Pte ab a ac a aE aE at ak at aE aE a te a aE a BS a iP AB AB AE aT ah IE TE AEE AE TE AE E IE AE TE ae AE aede de AE TE SETE ETE E Se ik iP iP iP GP aE ab a a a? 
subroutine shift; 

Semon /blkl/image,imagep,inopt,inoptp; 

integer*2 irage(IMAGEL),imagep; 


integer*2 ind,ditf; 


# check all record items 
for (ind=540;ind<imagep; ind=ind+540) 


{ 
for(index=ind;index>0; index=index-l) 
x 
if(image(index)==ENDOFI) break; ¿end of input 
if (image (index) ==36) fS (EPL E) 
{ 
diff=ind-index; 
imagep=-imageptciif; 
for(i=imagep;i>ind;i=i-1) 
image (i)=simage(i-diff); 
icrage(index+l)=ENDOFI; 
break; 
} 
} 
} 


# store ENDOFR 
inage(ind)-ENDOFR; 
return; 
end 


JE ck ek tk kk kk e el eee ek ee fe ek dede dol ek ede dedo eee ede dedo eto dee 
# 

il 

J| cde eek ck ee eek d ok eek dede joke dede ede dee doe eek RAR Arc 
ff 

# Initial release -- hn/3 november 79 

F NAME: 


il savemr(index) 
# FUNCTION: 
jf store old and new menuids (idold,idnew) into nr and 
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it Berurn rhe index in rr 

# OUTPUT PARAMETER: 

if index - index in rr 

i 

BER a AAA ala 


subroutine savenr(index); 


integer*2 index; 
common /bik12/idold,idnew; 
integer*2 idold(10), idnew(10); 


common /b1k13/mr,ptr; 
Euteper*2 mr(21,50),ptr; 


for(i=1;i<=10;i=i+l) 
{ 
meiner )=idold(i); 
facie lO,ptr)=idnew(i); 
$ 

index=ptr; 

BEr-ptr-tl; 

return; 

end 


JE de d sk ee eh ek de e e he ee he ek ee de dec de ds e de ke e ck de e ck ded ek ek dod deck ede e dee ede ce KE 
$ 

# (G p T MR 

i} 

if Je de KUH AH HA TH HA FI A EA ER HE ck de e de ek ode teo de ee eje 
i 

# Initial release -- hn/3 november 79 

3 NAME: 


if cetren(irec) 

# FUNCTION: 

# get the menu record number for a renu 

7 whose menuid is in ipredn 

# OUTPUT PARANETER: 

if irec -- record number of first menu record 
# 


if te at a dE aE ab a a ab ab at aE de of aE aE ah ab at a a dB TPE dB PAE AE TE aE iB aE a ab iP at oP aE aE aE a iP PP a aE aE PAB EB EP BaP a aE Bar EEE ta EE 


subroutine getmen(irec) ; 
integer*2 irec; 


common /blk4/menuid, ipredn; 
integer*2 menuid(10), ipredm(10); 


Eoumon /b1k13/mr,ptr; 
tesecr*2 rr(21,50),ptr; 


irec=0; # preset 
i=l; f index in mr 
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while(i<ptr & irec==0) 
{ 
melts index for first character of menuid 
while(irec==0 & i«220) 
( 
meer },1) !5 ipredr(j-10)) break 
else if (j>=20) 
me recsnur(21,i); break;) 
else j=j+l; 
} 
i=i+l; 


} 


peturn; 
end 


pk ACA e d e UA e A KA KH e ee ee eee ek AK AK KK KK A N KK A KA AK KA A A A de e e A 


ff 

if UTP D NEn 

# 

PARARARARAAA RARA RARA RRA RERRA RARA RARA RARA RARA RRARRARRAARARARAA RA RARA 
it 

# Initial release -- hn/3 november /9 

r NAME: 


if updmr 

# FUNCTION: 

if read all menu directory records from renufile and write 
i them to menuout 

F retrieve record nunbers for menuid’s stord in nr 


i and store them in nr. 
# ALGORITHM: 


i open files for read from renufile, write to menuout 
i while there are more directory records 

i mead a record 

i Mor all entries in record 

if compare it with mr entry 

# if found store record number 

if update directory record (new menuid & rec number) 
# fe still entries in nr 

i create new entries in directory 

if write record to menuout 

it 


df dt tt st at df dt HE aE GB id ah tt id dd eae BaP ab ah ab ab at BaP iB ae aE ak BE a iP ab EB aE ae aE A EEG aE it at ak PG a a ab BEE 
subroutine updmr; 

common /b1k13/mr, ptr; 

Baeecer*2Z mr(21,50), ptr; 


common /blkl4/hizhr; 
integer*2 highr; 
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cormon /b1k15/ifunct; 
integer*2 ifunct; 


ers rbuff(534), dir(12,45), pl,p2,p3; 
memevalence (rbuff(l),dir(1,1)); 


meee (0,13)3;13 format(’updmr: °); 
# close and open files 
Bail coffwd; 
if(ierror(104) != C) goto 9999; ř if END-OF-FILE 
icount=ptr-1; # number of entries 
highr=0; i preset 


Por(i-l;i«-HDREC;i-i-1) £ for all directory records 
i 
BESUQEDUR, 100) (rbuff(k),k-1,544); 
100 format(544al); 


if(icount!=0) { 
for (j=1;3j<=45;j=j+1) # for all record entries 


if(dir(1,j)==3240) # first empty entry 
{ 
for(k=1;k<ptr;k=k+1) 
{ 
if (mr(21,k)==0) 
{ 
if ((k==2&(ifunct==CKFATE|ifunct==INITM)) | 
(k!22 & díir(11,j)223240 6 dir(12,j)==8240)) 
í for(xk=1;xk<=10;kk=kk+1) 
mr(kk,k)28240; # old id’s now empty 


break; # only blank the next one 


} 
} 


Horn-1;n«ptr;n2n-*l) # for all mr entries 


for(1=1;1<=10;1=1+1) for all characters of menu-id 
{ 
if (mr(21,n)!=0) break; # if record number found 
if (mr(l,n)!= dir(l1,j)) break #char dont match 
else if (1==10) # menuid found 
{ 
for(11=1;11<=10;11=11+1) # copy new menuid 
dir(11,j)=mr(11+10,1); 
PO=NDREC+1+((i-1)*45+j=1)*(HIRECTNOREC)3 i£ rec number 
if(p3>hishr) highr=p3; 
me(21,n)=p3; 
Ball intasc(p3,21,p2); if 
dir(ll,j)=pl; dír(12,j)=p2; 
icount=icount-l; 


} 


convert into ASCII coded 





} 
D 
) 
) 
Ere); 200) (rbuff(k),k=1,542); 
Boo format (542al); 
j 


9999 if (icount>C) 
{ 
write(LUW,777); stop; # not all menu names found 
* error condition 
771 format(” Not all menus found ‚check input -- stop’); 
) 
Beturn; 
end 


150 





pl UW “COPCE ER PROGRAK 
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? s 
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iP x 
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i 
T 


weal release -- hn/l Oct 79 
3 NAME: 


i} mcheck 

me FUNCTION: 

i print image of a menu 

i print input options of a menu 

i print directory records 

# CALLING PROGRAIi: 

j 11-11 

BE INPUT 

if text file witi all needed information having the format 
Y described below. 

BNXIOTES: 

i This is an off-line prograr. 

ir It interprets a standard input in certain format. 
i? Input may be files or any input device. Tach line 
i S-minput has to be in the following formats 

i ( line number ): 


more function 


if 6 = primag - print image of a menu 
i ] * propt - print input options of a nenu 
ir Wo rdir - print directory records 


miestoliowing formats will depend on the functions. 


Ber all input files: 
my): function code 


MOT primag,propt 
i (2) : menu-id (10 character) 


VZ 8 2/2 88 2188882 2/88 a ad 28 k A ti ES EET PE AE SE SE ae ab gE ae de do a ita 


define LUR 
define LUW 
define LUI.R 
define LUNI 
define LUTTD 


Ploc cal unit for read 

# logical unit for write 

logical unit for iene p PC ECC 
# logical unit for menu file write 
# logical unit display 


T0 CV Un 


define NDREC 20 # number of directory records 
define  HIREC max 4 records for image 
define NOREC j| max 2 records forsinupuc options 


to E 
= 
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detine 


define 
define 
define 


define 
define 
define 
define 
define 


define 
define 
define 


define 
define 
define 


define 
define 
define 


define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 


define 
define 


define 
define 
define 


# function codes f£rou input file 
B 


PREDIO 


DELETE 
CRUATE 
WEVATE 


SUCCM 
BALL) 
PRINTI 
PRINTO 
MTM 


C 


y DY UN 4 DD re 


ge) 


£ 


# find a menu id in directory 
(34 in ipredn) 

f delete menu id in directory 

Y insert a new menu id in directory 
+ find a menu id in directory 

dd in menta) 

© find menuid of successor menu 

# print the contents of directory 
# print image of a menu 

prine input options of a renu 

# create the initial renu 


mode for button locations 


LOCA 
ECC 3 
LOCC 


l 


2 
3 


t button row below the text 
i button row beside text 
ài button collumn beside text 


i symbolic names for fixed margins 


WERT. 
er iP 
LLARG 


Mi ight margins 


RI{ARCB 
KHARGC 


DELTA 
IMAGEL 
INOPTL 
INMAX 
eur FL 
LNDOTI 
ENDOFR 
eA] 
BUTT 
SELOCK 
SRESP 


DONE 
NOBDOILTE 


EENSCII 


ESC 
COETRO 


8 i left margin of menu field 
2 # left margin of permanent buttons 
20 # lower margin of menu field 
for button rows/collumns 
78 # button row below text 
78 # button row beside text 
78 $ button collunn beside text 
2 i free rovs/coll between buttons 
2432 # image storage length (bytes) 
15 # word length for each input option 
B # max number of input options 
80 # input buffer length 
8316 # code for end-of-input 
8318 # code for end-of-record 
15 # code for text mode 
14 f code for line mode 
126 # code for start-text/question-block 
127 # code for start-response-block 
# symbclic input parameter 
l # done 
0 # not yet cone 
character 
27 ESC 
15 F COLTROL © 
14 % CONTRCL N 


CONTRA 
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2 


integer*2 


F 
inteser*2 


at 
Y 


input buffer 
PUC (IDUFFL):; 


storage for renu-id 


menuid(10); 


Eorace for wenu-id to lookup in directory 


Etecer^2 ipredn(10); 

# storage for image 
integer*2 irage(IMAGEL); 

# storage for input options 
Botecer*? inopt (Il.OPTL,IMMAX); 

i pointer 
integer*2 imazep r next free entry in image 
integer*2 inoptp f next free entry in inopt 

i next line to write on display 
integer*2 lincnt; 

# display mode 
integer*2 mode; 

# function code 
Entecer^2 ifunct; 
Entecer*? idold(10); i pbenuld to fing in directory 
integer*2 idnew(10); # menuid to store in directory 

# menu parameter 
integer*2 nblock; r number of text/question blocks 
integer*2 nbutt; # number of buttons for a block 
Entecer*2 iloc; f location of buttons ii a bDlock 
integer*2 isize; # size of buttons 
integer*2 rentyp; Y menu type 
integer*2 ipredr; # record number of predecessor menu 
inteser*2 ispace; i space lines between text blocks 
integer*2 irec,param,ichar; 
Enteser*2 mr(21,50),ptr; * temporary storage for menuid,rec f 
integer insave,irsave,iwsave; Y file descriptor from open 


BEounon /blkl/image,imagep,inopt,inoptp; 
Bergen. /blk2/lincnt; 
conmon /blk3/mode; 


common /b1!.4/menuid, ipredn 


BEoumon /blk5/ibuff; 
common /blk6/nblock; 
common /blk7/nbutt,iloc,isize; 
common /b1k8/mentyp,ipredr; 

common /blk9/ispace; 
conmon /blkll/irsave,iwsave; 


common /b1k12/idold,idnew; 


183 





on /5bikl3/nr,ptr; 


# specify logical unit numbers and 

# Open menufiles fer read/write 

i the old menu file “menufile” is read and 

# it is written onto a temporary menu file “nenuout’. 
fester all is done, "nenuout“ is copied to “menufile”. 


EPI setfil(LUMR,'menufile '); 


í preset inopt,image,menuid,ipredm,ichar,mr 
for (i=1;i<=INHAX; i=itl) 
{ 
for (j=l; j<=LNCPTL; j=j+1) 
inopt(j,i)=8240; SE O 


} 


for(i=l;i<=IMAGEL;i=i+1l) 
imace(i)=8240; eS uy 


for (i=13;i<=10;i=i+1) 

{ 

nenuid(i)=8240; SPA. 
ipredn(i)=8240; SPO 
? 


ichar=0256; + SP. G“ 
Btrel; 
for(i=1;i<=50;i=-i+l) 
{ 
for(j=l;j<=21;j=j+1) 
met 1,1)=0; 


} 


# read function code 
Mead(LUR,1000) ifunct; 
00D format (i3); 


if (ifunct==PRINTD) call prdir 
else 
{ 
# save menu-id 
Mead(LUR,10C) ibuff; 
ifoemeortmat(CCal); 


i=l; 
while(i«s10 & ibuff(i)!=ichar) 
{ menuid(i)=ibuff(i); i=itl; } 


if (ifunct==PRINTI) call primag 
else if (ifunct==FRINTO) call propt; 





e lose all files 
Bewind LUF; 


end 


PRARARARARAZARA RRA RRA RRA RRA RAE RAR RARA RARA RAR RARE RRA RRA RARA 


it 
iv 


ir Seal EUN 

it 

JE ck de dede deck KKK AKI KAR KIRK KKK tede tete de de deck dede fee deed 
» 

ENnPtial release -- hn/2 Oct 79 

i BAIE: 


# setmen (irec) 

# CALLING PROGRAt: 

^ mcheck 

E FUNCTION: 

f prepare store for new and old nenuid 
r and set menuid into nr 

#* OUTPUT PARAHETER: 

7 irec -- index of menuid in ur 
INFORMAL INPUT: 

ir menuid - menu id 

ALGORITHM: 

j reset tenporary id stores 

if copy id’s 

i Save old and new menuid in mr, return index 
it 

i? 


hig "Ere BUE M papse pepe gecpar pu tU pt ppl Zr JE IE IE JE ud VB doy c A efi on DUCI UE Cite Reka E SE AT He 
er SEGRE AE ROA SD ACP AGO RARE LADA dE GP O E dE e de REA AA RE E de E 


subroutine setmen(irec); 


EHnterer*2 iflag,irec; 
integer*2 pl,p2; 

cormon /b1k4/wenuid,ipredr:; 
integer*2 menuid(10); 
integer*2 ipredn(10); 


# store for old and new menuid 
common /blh12/idold,idnew; 
integer*2 idold(10); 
integer*2 idnev(10); 





# preset temporary storage for id’s 
Mor(i=l; i<=1G; i=i+1) 
{ 
idold(i)=8240; pots Us 
idnew(i)=8240; 


} 


i store old and new nenuid“s 
for (i=l;i<=10;i=i+1) 
i 
idold(i)smenuid(i); 
idnew(i)=menuid(i); 
} 
? save nenuid in ur 
Eu savenr(O,irec); 


peturn; 
end 


Ek dee ke kk ke se dfe e de de ehe ek hok ec dee fk de ek ek ec ek dede ek oe x e do ode ek ded e ek e 
it 

f S AVER 

it 

jk koe ke ee ek dee e de ek e ek e ke e ke e eee de de det ee dede e dee de ek e dede ede dede kk ede 
if 

# Initial release -- hn/3 november 79 

# NAME: 


i savenr(pl,index) 

FUNCTION: 

it store old and new menuids (idold,idnew) into mr and 
if BeBurn the index in mr 

i or store record number and return index 

ESNOUTPUT PARALETER: 

ir index - index in ar 

ir 


IDEM IIoc y or gpatg 422041 2623 LEN EA AS HN KIT HN Jt EIE O E t TERETE so El a as 
i fH iE eB ig RE Heat ba ee ZE P vé EE ER tag it a it ir tie ab ar EE ae ir rar ar ik iP ar ib ie he hac tf 


subroutine savenur(pl,index); 


integer*2 index,pl; 
common /blkl2/idold,idnew; 
integer*2 idold(10), idnew(10); 


Sommom /b1k13/mr,ptr; 
Baeerer*2 mr(21,50),ptr; 


Eo 1==0) ( 
for(i=1;i<=10;i=i+1) 
{ 
mr(i,ptr)=idold(i); 
mr(i+10,ptr)=idnew(i); 
) 
} 





Elise mr(2l,ptr)=pl; 
index=ptr; 
ptr=ptrtl; 

return; 

end 


URREA REA RK KK AK KA KUN KHK KR AK KK KA KEK a RK Ra a ac ke 
if 

if GETMER 

il 

Uk xk de e ee ge dee e e he ke ke de eee to deed I KHK A U AR AKA A AK A A AKA AH AK dd 
if 

# Initial release == hn/3 november 79 

E CALL: 


it setmen(irec) 

ESFUUCTIOL: 

i set the menu record number for a menu 
if whose renuid is in ipredn 


EIDUTPUT PAPALLTER: 
i? irec ~-=- record nunber of first menu record 
if 


tba ob at ae ae a ak ab iB at ad ar UE ae ak ar iE de ar dt IE ie it ak aE ae ak at aka EAE ac sb ab ar ab aE iB GP AE a EAB AEP a a eaat de iede ie aE EAP AE AE iP it hr ie ie t 


subroutine getimen(irec); 
integer*2 irec; 


cornon /blk4/menuid, ipredr; 
integer*2 menuid(10), ipredin(10); 


EO 7b1k13/wmr,ptr; 
mice er*2 mnr(21,50),ptr; 


irec=0; # preset 
i=l; # index in mr 


while(i<ptr & irec==0) 
{ 
j=11; # index for first character of uenuid 
while(irec==0 & j<=2C) 
{ 
Amr (3,1) {= ipredu(j)) break 
else if(j>=20) 
iN rec-nar(21,1); break;) 
else j=j+l; 
} 
i=i+l; 


) 


return; 
end 
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ir nn Die 


iE eode e dede eot dede ede e de v e v KA AR A a eed ekle e de jid do ede A AA AKA GA 
je 

i Initial release -- hn/3 november 79 

$ NANE: 


if updnr 

# FUNCTION: 

ir read all menu directory records from menufile and write 
if them to menuout 

if retrieve record numbers for wenuid’s stord in nr 

ir and store then in mr. 

# ALCORITHM: 

if open files for read from nenufile, write to nenuout 

i wnile there are more directory records 

it read a record 


"E 


ir Moral] entries in recorda 
HK 


i conpare it with nr entry 


# if found store record nunber 

if update directory record (new menuid 4 rec number) 
F write record to menuout 

ji 


JÍ JEJ Jt [ Jt IE "s JUDGE Ut RE ETE 
dit tit i it if iP it Pure nu Add #6 ar a A ie 7 HP dH aE ap aE Ht TP de: rd rire ITITI sie tap tp te ei yid tee vo ih a jed ip ar tr i + 


subroutine updnr; 


Semicon /b1k13/mr,ptr; 
Euteser*2 mr(21,50), ptr; 
mmceger*. pl,p2,p3; 


EE D "rbuff(544), dir(12,45), pl1,p2,p3; 
E xbPence (rbuff(l),dir(1,1)); 


# close and open files 
ead coffwd; 
Gf (ierror(104) != 0) goto 9999; + if END-OF-FILF 
icount=ptr-l; # number of entries in nr 


for(i=1;i<=5DREC;i=i+1) % for all directory records 
{ 
read(LUNR,100) (rbuff(k),k=1,544); 
100 format (544al); 


if(icount==0) next; # done no more entries to check 
for(k=13x<=45;x=k+1) 

{ 

real), k)=dir(11,k)-8192; 

dir(12,k)=dir(12,k)-&192; fassus 

> 


Bei; j<=45;j=jtl) v for all record entries 


{ 
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for(n=1;n<ptr;n=ntl) efor allier entries 
{ 
Peeetir(21,n); 
if(pl!i=G & mr(ll,n)==0) { 
M intasc(ol,p2,p3); 
is (p2==dir(1l,j) 4 p3==dir(12,j)) 
{ for(ll=1;1i<=10;11=11+1) 
ocito m)j=air(llicj)s 
icount=icount-1; 
) 
j 
else ( 
FEBI; 1<=10:1=1+1) * for all characters of menu-ic 
{ 
if(pl!=0) break; # if record number found 
Eur(l,n)!» dir(l1,]1)) break char dont match 
else if (1==10) i menuid found 
{ 
for(11=1;11<=10;11=11+1) # copy new menuid 
ERST IL dOERSF(LITIO, n); 
p3=NDREC+1+( (i-1) *454+j-L)*(NIREC+NOREC)3; # rec number 
ar(21,n)=p3; 
EuUruntasc(p3,pl,p2); © convert into ASCII coded 
BEE OLl,j)=pl: dir(l12,j)=p2; 
icount=icount-1; 


# stop if not all menu id’s found 
EUueount»0) {write(5,19);19 £format("Menu id not found--stop');stop;) 
9999 continue; 
return; 


end 
Jf de ee ke e de de ede de de e ee de jede ee de deck oe dee e e et oo dee e foe dee Tee dede eoe dede e tk 


it 

if BOLL G 

# 
jkkkkkkkkškkkkkákkkkkkkkkkkkkkkkkkkkškkkkkkikkkkkkkkkkkkkkkkkkškkřřkkK 
if 

* Initial release -- hn/l november 79 

i NAME: 

if primag 

# FUNCTION: 

if print the image of a requested menu 

i? 

dh ait dt at ib dt ad dE ak st ibs it te ic hit be ai at at ae ah at ab AE ob at AE aE it aE aE ob ab aE AE ie BaP ik ark at ab ae at ici at itt aE EAE RB a de 


subroutine primag; 
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common /blkl3/mr,otr; 
Mecer? mr(21,50),ctr; 
maeeser*2 dbuff(544),pl,p2,irec; 


# set menuid into nr 
call setmen(irac); 

# get menu record number from directory 
call updnr; 
irec=mr(2l,irec); 


# dummy read over all preceeding records 
i=1+NDREC; 
while(i<irec) 
{ 
BEGUOUER,IO0) (dbuff (x) ,«=1, 544); 
In srornat(544al); 
P-1-l; 
) 
# read and print up to four image records 
for(i=1;i<=4;i=i+l) 


{ 
read(LUMR,100) (dbuff (k),k=1,544); 
p2=1; ? pointer in record,start of command 
for(pl=1;p1<=540;p1=p1+1) 
{ 
feeeaourt(pl)==S228 | dbuff(pl)==8316) # CR LF or ENDOFI 
{ 
pl=pl-1; 
if (pl>=p2) À do not print successive cr/lf 
Ace (LUN, 100) (dbuff(1),1=p2,p1); t write command 
pe-pl+l; p2=pl+tl; 
) 


if(dbuff(pl)==ENDOFI) break; % read next record if any 
if (dbuffí (pl)==ENLOFL) 


ua -5; break; ) , 


Stop, cone 


} 
} 


return; 
end 


JL ge de dee sede e dete e dede do dee ded dee deed RRR RE KKK KIKI REAR ER ER RERR EER EK ERE 
# 

F Pb CB% 

if 

PARAR AAA eed dede dede ede de de eee dee dee doe dee dete tee dede fedele e dete dee de de e dee NK 
# 

# Initial release -- hn/2 november /9 

à NAME: 
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il propt 

EESUNCTIOHN: 

dh i E 11 i z = ; : > 

i print a input options for a menu specified by 

i menu-id ia nenuid 

"l 

Ir 

ee na JL 100 10 ML ei edi CUR a teurer EE dig S L E pr J J ! ft ui 
Weddidddiduón4Wsunitwsikzoc4uxstziswusséusndshibUswüzhsnxshésshzusdwdbüisdsussbygwdd4gs 


subroutine propt; 


common /b1k4/menuid,ipredn; 

integer*2 menuid(10),ipredn(10); 

common /b1k1/image,imagep,inopt,inoptp; 
integer*2 image(IMACEL),imagep,inopt(INOPTL, INMAX),inoptp; 
Mtecer"2 pl,p2,p3,p4,p5,irec,mentyp,flg; 
Eute»ser*2 p(5), renu(10), dbuf£(544); 
integer*2 run,rp; 

Bormon /d1k13/mr,ptr; 

Entercer*2 ur(21,50),ptr; 

integer int; 

equivalence (inopt(1,1),dbuff(1)); 


call setmen(irec); # set menu 
call updmr; 
l=mr(21,irec)+4; 
ptr=l; 
for (i=1;i<=50;i=-i+l) 
{ 
for(j=1;j<=21;j=jtl) 
me), 1 )=0; 
} 
# dummy read over all preceding records 
i=1+NDREC; 
while(i<l) 
ENESSd(BUHME,100) (dbuff(k),k21,544); 
IE UELormat(544al); 
i=i+1; 


} 


# read both records 
ESSd(LUMR,200) (dbuff(k),k=1,2/2); 
BE A(LUMR,200) (dbuftf(k),k=2/1,542); 
Bee rorrat(2/2a2); 


run=l; 
Epl; 
1£(1<=29) p4=36 # start menu 
else p4=29; 
int=inopt (3,p4); # number of input options 
pl=int/256; pl=nod(int,256); call ascint(pl,p2,p)5); 


lr=1-4; 
Memee(LUW,1) (menuid(111),111=1,1C),1ir; 
1 format(//’Input options for menu: "s 1l0al/, first record: 3/4) 


write(LUW,2) £5; 2 forrat(“nunmber of input options:”,i3); 
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int=inopt (2,p4); 
Meet, 200, p2=mod(int,256); call ascint(pl,r2,p3); 
Wrice(LUW,3) p3; Bopuat eng type: 1995 


p2=inopt(1,p4)/256; 
Ene=inopt (1,p4); 
p3=mod(int,250); 

Sard ascint(p2,p3,pl); 
call savemr(pl,irec); 


while(run<=2) { 

if (run==2 ) 
{ 
tE, 4) (mr(l,rp),1=11,20); 
Meeemeat( predecessor menu: “,1Cal); 
rp=rptl; 


# print entries of each input option 
for(p4=1; p4<=p5; p4=p4+l) 
{ 
# convert coordinates and action code into integers 
for(1=1;1<=5;1=1+1) 
( 
pl=inopt(1+6,p4)/256; p2=mod(inopt(1+6,p4),256); 
pas cint(pl,p2,p(1)); 
} 


if (run==2) { 

METte(LUW,6) p4; 6 format(//’input option’ ,i3); 

Write(LUW, 7) inopt(l,p4); format ( label: al 

EN CUEEUSS3) (inopt(1,p4),122,6);8 forrat('log comnand: *,5a2); 


EN SODUU;9) p(1); 9 format('button left collurn:',i3); 
Bern, 10) >(3);510 format(’button richt collurn:',i3); 
Mertce(LUW,11) p(4);11 £ormat('button upper rov:*,13); 
MERECEN, 12) p(2)312 forrat(“button lower row:",13); 
MTS (LUW,13) p(S);13 format(“acticn code:*,13); 


} 


if (p(5)==1) ; read menu 
{ 
Sl=inopt(12,p4)/256; p2=mod(inopt(12,p4),256); 
EuUCascint(pl,p2,p3); 
if (run==1) call savenr(p3,irec) 
else { 

ME (LUW,14) (mr(1,rp),1=11,20);14 format (“successor menu: “,10al); 
rp=rptl; } 


) 
else if(p(5)==2 | p(5)==4) # return cuaracter 
if (run==2) 


ESNEeCLUM,15) inopt(12,p4); 15 format({ character to returna al): 
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} 


else # return intecer 

{ 

if(run==2) 1 

be—tmopt (12,04) /256; p2=rod(inopt(12,p4),256); 

m cint(pl,p2,p3); 

if (p(5)==3) r integer 
{ 
mou, 16) p3; 16 format(’integer to return: ’,i3); 
} 

else if(p(5)==14) 


{ 
Pree (LUW,17) p3; 17 formet(’new task id:’ ,i3); 
j 
else; i£ do not know yet 
) 
j 
) 
MB -bs run=run+l; if(run<=2) call updnr; ) 
return; 
end 


KAR KAKXÁAZKÁAXZÁÁ ZÁ KŘ Z KA NA K Á KA KA AKA KA KAZ Á K AK AK KA AA K AKA KK ÁZ KK AK KAZ K A A KK HK KH A KH A X 


if poc E 


# Initial release -= hn/3 november 79 
i ME < 


it prdir 

ESPUNCTIOU: 

tf print the contence of all directory records 
it 


df is Ht af at af af aE ab E ab it af af at at ic ac af it at iP at ae at aR aE at ab a id ae HBB aE AE aE ath tek at kar ab aE Paka me dear ar dr RE de ACC APR ait te FEE 
Subroutine prdir; 


Bmeerer*s2 dbuff(544), im(12,45), p(45); 
integer*2 pl,p2,flag; 
Bruivalence (dbuff(l),im(l,1)); 


MENE (LUN ,1); 1 fornat(//“These are the directory records’//); 
# print all records 

for(i=l;i<=iDREC;i=i+l) 

flap=0; 

read(LUNR,100) (dbuf£(k),k=1,544); 

ByOetormat (544al); 
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Meee (LUi,2) i; 2 format(/’record number:’ ,i3); 


for (K=13K<=453k=k+1) 
{ 
pl=im(11,k)-8192; p2=im(12,x)-8192; 
Eu sseint (pl,p2,p(k)); 
if(p(k)==243) p(l.)=0; 
it(im(l,k)!=8240) flac=l; 
} 
# write menuid’s and record numbers 
ErF(flag!-0) ( 
for (k=13k<=43 5 k=k+3) 
{ 
emcee 2=kK+2; # limits for 3 entries 
Mime 0,3) (((im(n,1),n=1,10),p(1)),1=i1,i2); 
nat (3(10a1,13,2x)); 


) 
flag=0; ) 
else 
EEG /7); 77 format (There are no entries”); 
) 
return; 
end 


pA ACA ACA ACA UA ACA Ae ek Ae AA ce AG de dec oc ee A A A A A a AK a A AH A Ad a a A 
if 

if 3.1 GO BOR YD 

it 

iA AAA eA AG KA R A K KA ZÁ KA KÁ KA K RÁ KK K A I RR AN KA eoe Ae AAA A AAA eA 


ir 


Initial release -- hn/3l october 79 


E KAE: 

f coffwd 

# FUNCTION: 

if close menufile 

r open menufile 

ir read from menufile 
# 

i ALCORITHE: 

i close file 

i rewind file 

j connect logical unit number anc file 


x 2 UE t Jt Ji di di GIE d JEJL Sh yn JE Jp qU UL 24 JU JU 
Hs£udddé gdstdsdddggituddufÓcdüsgzosfudsTZCzykukchszhbuwobkwukbrwirgvirüsbibübd 
BubrOutine coffwd; 


cormon /blkll/irsave,iwsave; 
integer irsave,iwsave; 


rewind LUR; 
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BILY setfil(LULR,“nenufile “); 


return; 
and 


Il Je se de e ke ee e eek ke e dede ek hk ke ok e ck c s ded dk e e e o tek de 
i 

| IE A SC 

f 

des dede deo dede ee dede ed de ee jk e ok de oce dee de e e dede e de ded ek e ee do dee dee de 
ij 
Bea) release -- hn/31 october 79 
* NAME: 


f intasc(inp,outl,out2) 

BE FUNCTION: 

f Conversion of an integer (0-900) into two integer*2 ASCII codes 
f ALGORITHM: 

f outl= inp/30 +40 (range ASCII 40-70) 

} out2= nod(inp,30) +40 (range ASCII 40-69) 


EEES SANS ASE 
EEroutrine intasc(inp,outl,out2); 


integer*2 inp,outl,out2; 
integer numl,num2; 


nunl=inp ; 

out l=inp/30+40; 
nun2=mod (nun1,30); 
out 2=nun2 +40; 
return; 

end 


UE RKKAKKHK KARE RAK KKK ARERR RR RER KEK EKER ERR EEK EE RR RE RRR KER tek jk ee 
Y 

j ASC INN A 

/ 

J| cde eek ke e dele eee dee dee deje deo dolet ok eee ek fele dede doe eee letete ke eek eet 
it 

' Initial release -- hn/3l october 79 

* NAME: 


if ascint(inl,in2,outp) 

* FUNCTION: 

i Conversion of an ASCII coded number (©-900) into 
if an integer*2 value 


# ALGORITHM: 
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it outp= (inl-40)*30 + (in2-30) 

if 

1 
AS ASEO 
Enbroutine ascint(inl,in2,cutj); 

° J > “ E 

integer*2 inl,in2,outp; 

outp=(inl-40)*30+in2-40; 


Beturn; 
end 
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PATIO: 


va 


i 


LEICHE ROr = 


MOTO OTS 

BNUDEE  SPCHHL 
ENT /03/ 
MBSECT  OTSSI 
JSP PC PATIO 
NOP 

CEP R1,RO 
EENOPL | SNLCHN 
HOV 4(R3),RO 
ADD ESELCHN,RO 
CHP Rl,RO 
RTS PC 

„END 






"OR IA - 
i 


o 





md 
4823435 
08,(CR)0 X 
OA, MOK 
08, 1I 

34 


BESCII 


BG 

CRT 
DEC 

FG 

BP 

E/O 
LED 
NAVCOMSTA 
SATCOM 
Sb 

55A 


BB 


LIST OF ABBREVTATI INS 


American Standard Code mtor 
Information Interchange 
Background 

Cathode Ray Tube 

Digital Zauipmenct Corporation 
Foreground 

Hewlett-Packard 
Input-Output 

Licht Fmittiag Dode 

Naval Conmunication Station 
Satellite Conmunications 
oStarpuses5block 

SAICO Signal Analyzer 


Parameter Block 
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